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I.  unmLMM  MABTLCTY  EBKTVATIVB  HtQQRAM  - 


M  HBMBPBTIOW 

Chapter  V  of  Volume  I  of  this  report  describes  the 
M08IAB  modular  stability  derivative  program  in  a  general  way,  avoiding 
technical  details. 


It  is  emphasized  that  the  version  of  M061AB  described  here 
(M06XAB-B)  does  not  include  rotor  stall  or  compressibility  as  a  function 
of  azimuth.  It  is  adequate  for  the  approach  conditions  considered  in 
this  report,  but  is  not  suitable  for  higher  speeds,  for  which  later 
versions  of  M06TA.B  should  be  employed. 
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1.2 


PROBLEM  DEFINITION  AND  NOTATION 


Define  fi  coordinate  system  x,  y,  z  fixed  to  the  mass 
of  a  flying  vehicle.  The  exact  location  of  x,  y,  z  is  chosen 
for  convenience  during  the  calculations  of  aerodynamic  forces. 

One  convenient  definition  for  the  location  of  x,  y,  z  on  a  single 
rotor  helicopter  is: 

(1)  Origin  at  the  intersection  of  the  main  rotor  shaft 
and  the  fuselage  waterline. 

(2)  x  axis  lying  in  the  vertical  plane  of  symmetry  and 
parallel  to  the  fuselage  waterline. 

Aircraft  are  essentially  a  combination  of  aerodynamic 
and  inertial  elements.  These  elements  may  be  classified  generally 
into  four  groups: 

(1)  Rotating  airfoils  (lifting  rotors,  propellers) 

(_)  Stationary  airfoils  (wings,  empennage  surfaces) 

'  )  Body  structures  (fuselage,  nacelles) 

( 1  Momentum  engines  (turbojets,  rockets) 

Generally,  each  of  these  aerodynamic  elements  produces 
a  force  and  a  moment,  which  sum  (in  a  vectorial  sense)  with  those 
forces  and  moments  produced  by  all  other  elements.  The  final  sum 
represents  the  total  load  that  sustains  flight  and  forces  maneuvers. 

Now  consider  an  aircraft  with  N  aerodynamic  elements. 

Define  a  reference  point  for  each  element  which  is  convenient  for 
determining  loads  produced  by  the  element.  Locate  an  axis  system 
xi’  •vi>  vi  at  pach  element  i,  i  =  1,  2-*-N,  such  that  the  origin  of 

x.,  v..  ir  co-incident  with  the  i'th  element's  reference  point. 

iii 

Fix  x^,  y. ,  .  .  ri  -i  lly  to  the  mass  of  the  element  reference  point, 

and  constrain  this  coordinate  system  to  remain  parallel  to  the 
overall  vehicle  frame  of  reference,  x,y,z. 

The  force  and  moment  vector  generated  by  each  element, 
i,  and  applied  to  the  rest  of  the  aircraft  can  be  represented  by 
the  .  ix_rnw  column  vector  f ^ .  The  first  three  elements  of  f^  are 

the  force  components  (in  y^,  z coordinates)  applied  to  the 

aircraft  by  element  i .  The  last  three  elements  in  f^  represent 

the  components  of  the  moment  applied  to  the  airframe  by  element  i. 
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The  coordinate  system  x^,  y^,  z^  has  three  transla¬ 
tional  and  thr<*c;  rotational  velocity  components  which  identify 
the  velocity  of  x^,  y^,  with  respect  to  inertial  space.  Define 

v^,  a  six -element,  column  vector  whose  first  three  rows  represent 

translational  velocity  components  and  last  throe  rows  represent 
rotational  velocity  components  of  the  motion  of  x^,  y^,  in 

inertial  space.  In  an  analogous  manner,  define  v^  as  the  velocity 

of  x^,  y^,  with  respect  to  the  air  in  the  vicinity  of  element  i. 

Note  that,  in  general,  v^  and  v^  .are  different  because  the  air  dr 

the  vicinity  of  an  aircraft  is  not  still  with  respect  to  inertial 
space.  Detailed  discussion  of  these  air  motions  is  deferred  to  a 
later  section. 


An  aircraft  is  usually  controlled  by  mechanical  recon¬ 
figuration  of  selected  aerodynamic  elements.  Familiar  measures  of 
the  control  configuration  are  aileron  angle,  elevator  angle,  throttle 
setting,  collective  pitch  setting,  etc.  To  represent  these  control 
variables,  identify  the  M-row  column  vector  c.  Each  element  of  c 
represents  a  control  setting.  For  the  present  consideration,  the 
order  of  the  elements  in  c  is  not  relevant.  Also,  control  co¬ 
ordinates  which  are  not  varied  during  a  flight  case  under  study 
(e.g.,  flaps,  throttle)  may  either  be  included  in  c,  or  may 
be  included  elsewhere  as  physical  constants  of  the  system  and 
excluded  from  c. 

The  force  and  moment  contributed  by  each  element  of  an 
aircraft  are  generally  functions  of  the  local  aerodynamic  environ¬ 
ment,  the  flight  control  settings  which  affect  the  element,  and 
sometimes  the  inertial  velocity  and  acceleration  of  the  element. 

In  terns  of  previously  defined  notation,  this  statement  can  be 
expressed  as  a  functional  mathematical  equation: 


fi  “  fi  (vIi'  vAi'  ^Ii’  C>  V  *  1  ’  2')  '  1 

i  -  1,  2, • • *K 

where  the  dot  denotes  differentiation  with  respect  to  time 
(element  by  element  of  v^)  and  Kj,  ,j  *  1,  2, ••••  are  physical 

constants  of  the  particular  element  (  wing  span,  chord,  etc.). 
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Construct  the  6NX1  column  vectors  f,  vT,  v,  and  $_ 

I  A  I 

by  simply  stacking  the  6)0  columns  f^,  v^,  v^,  and  V  one  on 

top  of  the  other,  starting  at  the  top  with  1=1.  All  N  equations 
represented  by  (1)  can  then  be  written  as 

f  =  f  (vj,  vA,  tfj.,  c,  Kj ,  j  =  1,  )  (2) 

The  force  column  f  represents  all  the  force  and  moment 
components  produced  by  all  elements  of  the  flight  vehicle  in  x,y,z 
coordinates.  Now  define  p  as  the  6X1  column  vector  whose  elements 
are  the  three  force  and  three  moment  components  of  the  total  aero¬ 
dynamic  loading  on  the  aircraft.  In  conventional  NACA  notation, 
the  elements  of  p  are  X,Y,Z,L,M,N.  These  elements  define  the  load 
on  the  aircraft  at  the  origin  of  x,y, z  in  x,y,z  coordinates. 

If  the  x,  y,  z,  coordiuates  of  each  element's  reference 
point  are  defined,  a  matrix  L  can  be  assembled  which  relates  p  to 
f  as  follows: 


P  •  Lf  (3) 

L  is  a  6x6n  array,  and  is  a  function  of  vehicle  geometry, 
only.  Thus,  p  is  a  function  of  v^,  v^,  ,  c  and  an  unspecified 

number  of  physical  constants. 

Let  s  represent  an  aircraft's  inertial  velocity 
expressed  in  x,y,z  coordinates.  s  is  a  6X1  column  vector  made  up 
of  three  translational  and  three  rotational  velocity  components. 
These  components  have  been  represented  by  NACA  airplane  notation 
as  u,v,w,p,q,r. 


If  the  x,y,z  coordinates  of  the  reference  point  for 
each  vehicle  element  are  defined,  a  6NX6  array,  G,  can  be  assembled 
such  that 

Vj  -  Gs  (4) 

The  matrix  G  is  a  constant  array  which  depends  only  on 
vehicle  geometry.  Thus, 

Vj  «  G  s  (5) 

While  no  proof  is  given  here,  it  is  easy  to  show  that 
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It  has  been  stated  earlier  In  this  work  that  the 
aerodynamic  velocity  of  each  vehicle  element  usually  is  not  the 
same  as  its  spatial  (inertial)  velocity,  because  the  air  surrounding 
a  vehicle  in  flight  is  also  moving  in  inertial  space.  Neglecting 
atmospheric  wind  for  the  moment,  this  relative  air  motion  is  due 
to  the  presence  of  the  vehicle  itself.  Momentum  considerations 
reveal  that  aerodynamic  forces  can  be  produced  by  a  body  with 
finite  dimensions  only  if  that  body  accelerates  the  local  air  mass. 
Thus,  the  forces  produced  by  a  vehicle  element  cause  the  surrounding 
air  to  develop  velocity  components  relative  to  space,  and  these  so- 
called  "interference  velocities"  impinge  not  only  on  the  element 
causing  the  air  motion,  but  also  on  other  elements  of  the  aircraft. 
Of  course,  this  velocity  interference  changes  the  airloads  produced 
by  the  other  elements  from  the  magnitudes  and  directions  that  would 
be  developed  if  the  air  mass  were  still  in  space.  It  might  be  said 
that  interference  velocities  couple  the  elements  of  a  flight 
vehicle  aerodynamically. 

Let  w  be  the  6NX1  column  vector  defining  the  spatial 
motion  of  the  local  air  at  all  of  the  element  reference  points. 

Then 


vA  *  Vj.-  w  (6) 

The  vector  w  will  generally  be  a  function  of  the 
airloads  produced  by  all  of  the  vehicle  elements,  the  aerodynamic 
velocities  at  all  of  the  elements, and  the  control  settings.  Also, 
certain  unsteady  aerodynamic  effects  can  cause  w  to  be  a  function 
of  Vj  and  as  well.  The  functional  equation  for  w  can  be  written 

as  follows: 


W  -  W  (f,  vA,  Vj,  ♦j,  c,  Kf,  i  =  1,  2“0  (7) 

where  K  ,  ■  1,  2* •••are  physical  constants  of  the  aircraft. 

Usually,  w  is  the  most  difficult  quantity  to  estimate 
for  a  flight  vehicle.  At  this  point, it  must  be  assumed  that  some 
model  is  available  to  define  the  function  7.  Analytic,  empirical 
or  intuitive  models  (usually  a  combination  of  these  three)  must  be 
assembled  to  define  w  before  the  dynamics  of  any  flight  vehicle 
can  be  studied. 

The  equations  presented  above  represent  the  general 
force  and  moment  consideration  for  the  loading  of  an  aircraft  in 
flight.  Some  form  of  pilot  (human  or  automatic)  produces  the 
column  c.  Solution  of  the  dynamic  equations  of  motion  for  the 
vehicle  produces  the  "velocity  state"  of  the  vehicle  expressed  hv 
the  columns  s  and  &.  This  information,  along  with  the  definition 
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of  ii<  vehicle 1  r  physical  configuration, enables  one  to  compute  p, 
through  simultaneous  solution  of  Eqs.  (2)  -  (7).  Figure  1  ihows 
•hero  mathematical  interrelationships  in  schematic  form. 

The  entire  set  of  bqs.  {2)  -  (7)  can  be  represented 
t.v  '.he  functional  expression. 

p  r-  p  (s,  &,  c)  (8) 

This  equation  is  invariably  a  complicated,  nonlinear  assemblage  of 
functions  actually  involving  p  implicitly.  Suppose  a  solution  to 

(c)  is  known,  of  the  form 

Pt  -  Pt  (at,  St,  ct)  (9) 

Let  Ap,  As,  .AS,  and  Ac  be  small  perturbations  of  p,s,S, 
and  o  from  their  "trim”  or  "quiescent"  values  p^,  s^,  §t,  and  c^. 

If  the  A  quantities  (perturbation  quantities)  are  small,  Eq. 

(c'i  ean  be  written  in  the  linear  form 

Ap  =  P  As  ♦  P,  AS  +  P  Ac  (10) 

4>  S  C 

The  matrices  P  and  P.  are  6x6  arrays,  and  P  is  a 
s  s  c 

6XM  array  (where  M  is  the  number  of  control  variables).  In  general, 
the  numerical  valxies  of  Pg,  P,  and  P£  are  functions  of  st,  and 

ct>  Thus,  the  trim  values  for  s,  5  and  c  must  be  specified  before 

numerical  values  can  be  assigned  to  the  elements  in  the  rectangular 
arrays . 


The  elements  of  P  ,  P,  and  P  are  conventionally  called 

s  c 

"stability  derivatives".  For  example,  in  conventional  NACA  nota¬ 
tion,  the  first  element  of  Ap  is  the  perturbation  longitudinal 
fore*'  on  th"  aircraft,  ADC,  and  the  first  element  of  As  is  the 
perturbed  Ion.  itudiual  spatial  velocity,  Au.  If  all  perturbation 
elements  In  A..,  AS  and  Ac  are  zero  except  for  Au,  then 

AX  =  Ps  (1 ,  1)  Au. 


Dividing  by  A.u  and  taking  the  limit  as  A  -*0, 


Au"  p  (i,  « 

A  -*0  Aaj  s  * 


dX 


Th*  other  elements  of  the  rectangular  arrays  can  be  defined 
in  an  analogous  manner,  as  partial  derivatives. 
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Linear  analysis  techniques  can  be  used  to  stud./  the  iy.n.-.i  • 

motions  of  an  aircraft  in  flight,  if  the  array;-  in  1  >,  arc  nur.cri  -illy 

defined.  (Linear  forms  of  the  dynamic  equations  of  ::or.ion  nr**  f 

to  derive,  and  need  not  be  considered  here').  The  "stability  lerlvn- 

tive  problem"  ic  te  determine  P  ,  P.  and  l  ,  given  qs.  (:••  -  < 7  . 

s  s  c 

1.3  TRIM 

Before  the  stability  derivative  matrices  can  be  determine!, 
a  "trim"  condition  must  be  specified  (i.e.,  the  quiescent  condition.’ 
of  velocity  state  and  control,  s,  ,  3  and  c  ,  must  be  known). 

u  X/  TS 

Certain  interrelationships  among  the  variables  s  ,  3  ar.  i  c  arc 

ti  t  t-< 

stated  in  defining  a  "stability  derivative  case".  These  inter¬ 
relationships  essentially  provide  functional  equations  which  can  t>e 
solved  simultaneously  with  Eqs.  (2)  -  (7)  to  g*et  the  unknown 
trim  columns  s.,  sfc  and  et»  These  "interrelationships"  that 

come  with  the  specification  of  a  particular  "stability  derivative* 
case"  will  be  called  "constraints"  on  the  variables  in  fc  -  ( 

To  make  this  concept  of  constraints  clear,  consider  the 
following  example  of  a  particular  stability  derivative  problem 
statement . 

Find  the  stability  derivatives  for  H-19  helicopter  in  steady 
flight  at  a  constant  altitude  of  5000  feet  with  true  airspeed 
(TAS)  =  90  knots.  The  ship  is  trimmed  with  zero  sideslip  angle. 
Weight  =  W,  eg  coordinates  =  x,y,z  with  respect  to  a  specific 
coordinate  system. 

The  statement  constrains  the  variables  in  Eqs.  (2)  -  (7) 
by  specifying  altitude,  rate  of  climb  (zero  in  this  case)  and  air¬ 
speed.  "Steady"  is  normally  interpreted  to  mean  that  s^  =  0,  and  all 

rotational  velocities  (last  three  elements  of  s^)  are  zero.  Zero 

sideslip  angle  constrains  the  second  row  in  to  be  zero.  Certain 

physical  constants  (weight  and  center-of-gravity  position)  which 
vary  during  a  flight,  and  from  flight  to  flight,  are  also  specified. 
Enough  information  must  be  given  in  uhe  problem  specification  so 
that  this  information,  together  with  simultaneous  solution  of 
Eqs.  (2)  -  (7),  will  yield  all  elements  of  c4_,  s^  and  c^. 

The  more  detailed  presentation  concerning  trim  which  follow, 
considers  only  the  cases  where  3^=0.  Although  the  basic  concept 

of  trim  does  not  necessarily  require  this  condition,  s  -  0  in 

almost  all  practical  stability  derivative  problems. 
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The  problem  of  finding  the  trim  columns  s^  and  is  solved 

mechanically  by  a  pilot  when  he  trims  his  aircraft.  The  pilot’s 
assignment  appears  in  a  form  similar  to  the  H-19  example  given 
above.  He  adjusts  his  flight  controls  and  certain  other  parameters 
(e.g.,  vehicle  attitude)  available  to  him  until  the  specification 
is  met.  He  is  essentially  solving  a  set  of  simultaneous  nonlinear 
equations  by  iterating  on  his  command  over  the  vehicle  until  the 
resulting  flight  condition  converges  to  his  assignment  specification 
(to  within  certain  required  accuracy). 

The  method  used  by  a  pilot  to  trim  an  aircraft  suggests 
the  approach  to  be  taken  here  for  finding  the  trim  columns  s^.  and 

ct>  Define  the  L-row  column  vector  t,  whose  elements  include  all 

of  those  parameters  available  for  adjustment  to  trim  an  aircraft 
(usually  t  has  six  rows),  and  include  certain  elements  of  c  and 
usually  information  associated  with  the  trimmed  altitude  of  the 
vehicle  in  space.  For  example,  the  pilot  of  a  pure  helicopter 
adjusts  the  following  six  items  to  trim  his  ship  for  level  flight 
with  zero  sideslip  angle. 

(1)  Collective  pitch. 

(2)  Lateral  cyclic  pitch. 

(3)  Longitudinal  cyclic  pitch. 

(4)  Tail  rotor  collective  pitch. 

(5)  Pitch  altitude  (conventional  notation  e). 

(6)  Roll  altitude  (conventional  notation  &). 

In  this  case,  four  elements  of  c  and  two  vehicle  attitude 
angles  are  included  in  t.  If  the  requirement  was  to  trim  the 
vehicle  to  zero  roll  angle,  sideslip  angle,  3,  would  be  included 
in  t  in  lieu  of  <I>. 

The  trim  control  column,  c^,  is  generally  a  function  of  t : 

Cj.  =  c  (t,  known  constraints,  known  constants)  (11  ) 

The  six  trim  variables  listed  above  indicate  a  1-to-1 
relationship  between  certain  elements  of  c  and  the  corresponding 
elements  of  t.  This  is  not  necessarily  always  the  case.  For 
example,  longitudinal  stick  position  may  be  defined  as  one  element 
of  t.  In  most  helicopters,  longitudinal  stick  position  affects 
both  lateral  and  longitudinal  cyclic  pitch  angles  (i.e.,  two 
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elements  of  c).  Nonlinear  expressions  may  relate  elements  of 
c  to  elements  of  t  (e.g.,  an  aircraft  may  include  nonlinear 
mechanical  couplings  between  pilot  inputs  and  control  variables). 

The  column  s^  can  be  calculated  from  the  constraints  of  the 
problem  and  the  specification  of  t : 

s  =  s,  (t,  known  constraints)  (12) 

tf 

For  example,  the  numerical  values  of  the  elements  in  the  last 
three  rows  of  s  will  usually  be  specified  by  the  problem  statement. 

The  second  element  (sideslip  velocity)  will  either  be  zero,  or  it 
will  be  included  in  t.  The  usual  specification  of  airspeed  and 
flight  path  angle  will  allow  calculation  of  the  first  and  third 
row  elements  of  from  the  altitude  rate  equation.  The  solution 

will  normally  be  a  function  of  the  vehicle  attitude  variables  in  t. 

From  the  definition  of  t  outlined  above,  one  sees  that  c^(t) 

and  &^(t)  can  be  directly  calculated  as  soon  as  a  numerical  value 

for  t  is  available.  With  the  statement  that  5^*0,  simultaneous 

solution  of  Eqs.  (2)  -  (7)  will  eventually  lead  to  the  solution 
of  p.  This  process  is  represented  by  the  functional  expression, 

p  «  p  (t,  stability  derivative  problem  constraints, 

physical  constants)  (13) 

The  unique  value  of  t  required  to  trim  an  aircraft  must  be  determined 
from  Eq.  (12)  and  the  stability  derivative  problem  statement. 

The  problem  statement  must  require  a  specific  value  for  p.  This 
"required”  p  column  can  be  equated  to  the  p  column  shown  in  13), 
to  yield  an  L- row  vector  equation  with  t  as  its  only  unknown. 

Remember  that  t  itself  has  L-rows.  This  process  produces  L 
(generally  nonlinear  )  equations  in  L  unknowns  (elements  of  t). 

Let  r  be  the  "required”  trim  value  for  pj  r  will  generally 
come  from  the  six  equations  of  motion  for  the  aircraft,  as  constrained, 
by  the  stability  derivative  problem  statement.  Since  t  usually 
contains  elements  related  to  vehicle  attitude,  and  since  the  equations 
of  motion  for  a  flying  vehicle  contain  terms  dependent  on  attitude, 
r  is  generally  a  function  of  t. 

r  ■  r  (t,  problem  constraints,  constants)  (1  U ) 

The  trimming  problem,  in  terms  of  the  functional  expressions 
new  available,  can  be  stated  very  simply:  Find  t  such  that 
p  (t)  -  r  (t). 
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guctrlctl  Solution  for  tha  Trinaad  Condition  (Trim  attrch  Iteration) 

In  obvious  sections,  certain  functional  expressions  were 
presented .  L’hese  expressions  are  summarized  below  for  convenience. 
They  retain  their  original  statement  numbers.  Indication  that 
some  of  the  orpressions  rely  on  constants  known  to  the  trim  problem 


is  dropped .  The  vector  is  also  dropped,  ; 

for  all  trim  cases  considered  using  MOSTAB. 
indicating  the  trim  condition  in  some  of  the 
of  those  equations,  is  dropped. 

since  it  will  be  zero 

The  subscript,  t, 
previous  expressions 

=  f  (vt»  va» 

(2) 

P 

=  Lf 

0) 

VI 

-  Os 

(M 

VA 

=  Vj  -  w 

(6) 

w 

=  w  (t‘»  vA,  vI#  e) 

(7) 

c 

=  c  (t) 

(11) 

s 

r  s  (t) 

(12) 

r 

-  r  (t) 

(1M 

Lt  is  assumed  that  explicit  relationships  of  the  forms  shown 
above  are  available  to  the  trim  problem  (i.e.,  a  numerical  value 
for  the  left  hand  side  of  each  expression  can  be  determined  if 
numerical  values  for  the  variables  in  the  arguments  are  defined). 

Eqs.  (  ),(•'•  anl  (6)  are  always  linear  (constant  L  and 
;  .  n i o  others  are  generally  nonlinear .  Note  that,  even  if  t 
i.  known,  p  einnot  be  explicitly  determined  because  of  the  non¬ 
linear  involvement  of  f  and  w  in  Eqs.  {?  -  (7'  • 

Estimate  t,ne  value  of  t  that  will  trim  the  aircraft  within 

'lie  framework  of  the  constraints  given  to  the  stability  derivative 

problem.  Also  estimate  w.  Denote  these  estimated  columns  as  t 
r  e 

and  w  .  ’'sing  these  •■Jtimates,  calculate  the  following  quantities: 
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c 

o 

-  '  <v 

(i 

s 

o 

*  S (te) 

( !•  ) 

vIo 

-  Gs 

o 

('  1 V 

VAo 

-  vIo  - 

(18) 

f 

o 

'  f  <VIo-  VAo*  Co> 

(i  * 

w 

o 

■  W  (fo'  TA0>  vIo'  Co> 

C\>> 

r  « 
o 

r<V 

Ci 

t  « 
o 

t 

e 

Let  the  difference  between  the  correct  value  (the  sought  trim 
solution  value)  of  each  variable  and  the  subzero  value  be  denoted 
by  A  (variable).  For  example,  if  f  ^  is  the  true  value  of  f  for 

the  trimmed  aircraft,  then 


Af  -  f .  -  f 
Z  O 

and  so  on  for  all  of  the  other  variables.  If  the  A  quantities  are 
small,  the  nonlinear  Eqs.  (2),  (7),  (11),  (12),  and  (U)  might 
be  suitably  represented  in  the  following  linearized  forme: 

?)L  f  ‘  fo  *  FVI  ATI  *  FVA  AtA  *  FC  AC 

7)l  v  -  ■„  *  >»P  &  *  «VA  %  *  «vi  Avrj  ■.  Wc  Ar 

">L  c“co4CTAt 
\S)L  s  -  ST  At 

">>L  r  ro  4  *T  At 

The  rectangular  arrays,  shown  above  as  upper  case  letterr, 
can  be  assumed  constants  if  the  A  quantities  are  small.  These 
arrays  are  functions  of  the  original  estimates  t  and  vf  ,  and 

easily  calculated  from  Eqs.  (2),  (7),  (11),  (12),  ond  (1  )  usin'  a 
digital  computer. 
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The  procedure  for  finding  a  trim  solution  new  becomes  that 
of  solving  a  set  of  linear  equations  for  At  and 

Combining  Eqs.  (4),  (6)  and  (12)^, 

VA  *  c  (•©  +  ®i  At)  *  (*0  +  (23) 

Subtracting  (1@)  from  (25),  using  (17)  to  eliminate  vlQ,  one 

gets 

Ava  «  GSj  At  -  (wo  -  w^)  -  tit  (24) 

Eqs.  (4),  (2)l,  (7)l,  (11)L»  (12)l*  (24)  c“  combined 

to  get  Av.  as  a  function  of  (v  -  v  )  and  At.  (Note  that  (w  -  w  ) 

A  0  6  0  6 

is  not  the  same  as  tat.  This  quantity  is  known  at  this  point,  since 
wq  was  computed  as  Eq.  20)  The  resulting  equation  for  ftrA  U* 

flrA  -  V,  At  -  VK  («0  -  w€)  (25) 

where 

VW  *  ^  +  Wr  FVA  +  ^ 

and 

vt  "  vw  f 1  ’  wr  rvi  "  08t  "  <Vc+  V  ct] 

(27) 

Noting  that 

AVj  -  G  ST  At  (26) 

from  Eqs.  (4)  and  ( 1 2) L,  Eqs.  (2)L,  (11)L,  (25),  and 
(26)  can  be  combined  to  yield 

f  .  f0  *  FT  At  -  Fw  (wo  -  ve)  (2?) 


•The  notation  1  refers  to  the  "unit"  array:  elements  with  equal 
subscripts  are  unity  and  all  others  are  zero. 
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where 


and 


FT  *  FVI  GST  +  FVA  VT  +  Fc  CT 


F  «  F  V 
rVA  W 


Combining  (29)  and  (3) , 


p  *  Lf0  +  LFt  At 


LFW  (wo  -  »e) 


(50) 


(51) 


(5?) 


Equating  (I1*),  to  (32)  -  the  requirement  for  trim  -  and 
L 

solving  for  At, 


a*  -  (*i  -  'V1  [*.  -  r0  -  (w0  -  v]  (33> 

This  value  for  At  can  be  substituted  into  (25)  to  get 

and  into (29)  to  get  A f.  These  results  can  be  substituted  into 
Eqs.  (7)L,  (1 1 ) l  and  (28)  to  get  tar. 


At  this  point,  new  estimates  on  t  and  w  can  be  made: 


t  ■  t  +  At 

e  new  o 


w  ■  w  +  tar 
e  new  o 


(55) 


These  new  estimates  on  t  and  w  can  be  used  to  repeat  the 
process  again.  The  cycling  can  occur  as  often  as  time  permits, 
until  the  differences  between  the  old  and  new  estimates  for  t  and 

w  are  within  some  acceptably  small  values.  The  chosen  "accept- 

ability  limits"  should  be  based  on  the  physical  dimensions  of  the 
elements  of  w  and  t.  One  test  procedure  could  be 

(acceptable  tolerance  on  t)  >  1  -  t  ,  .1  (36) 

e  new  e  old|  ' 

all  elements  of  t 

(acceptable  tolerance  on  w)  ^  JT|we  nw  -  wg  oU| 

all  elements  of  w 
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Discussion  of  ths  Trla  Starch  If  ration 

While  considering  any  numerical  iteration  process,  the 
question  of  convergence  arises.  This  question  will  not  be  treated 
with  any  mathematical  approach  here.  The  comments  to  be  extended 
are  quite  intuitive. 

Whether  or  not  the  trim  solution  method  outlined  in  the 
previous  section  converges  to  a  solution  seems  to  depend  on 
two  factors: 

(a)  The  nature  of  the  specific  nonlinear  functions  used 
to  represent  the  aircraft's  characteristics. 

(b)  The  correctness  of  the  original  estimates,  t  and 

Certainly,  the  degree  of  nonlinearity  characterized  by 
the  aircraft's  aerodynamic  functions  will  affect  the  rapidity  of 
convergence,  or  indeed  whether  convergence  occurs  at  all.  If  all 
of  the  aerodynamic  expressions  are  completely  linear,  convergence 
to  the  exact  trim  solution  will  occur  with  only  one  cycle.  On  the 
other  hand,  if  the  problem  statement  assigns  a  trim  condition 
within  a  flight  regime  unattainable  by  the  aircraft,  no  trim  solu¬ 
tion  can  exist.  Hopefully,  the  iteration  search  will  indicate 
this  by  failing  to  find  a  solution. 

For  those  "difficult"  regions  in  which  a  trim  solution  does 

exist,  but  may  not  be  found  by  the  iteration  process,  a  more 

sophisticated  iteration  method  may  be  required.  One  such  method 

may  be  simply  to  add  some  of  the  higher  order  (  nonlinear  )  terms 

to  be  the  "first  term  only"  Taylor  expansions  (2)  ,  (7)T,  ( 1 1 ) _ , 

L  L  L 

and  (lM_.  The  additional  complexity  of  this  approach  may  not  be 
L 

justified,  if  the  solution  can  be  found  by  invoking  engineering 
judgement  to  produce  better  initial  estimates.  The  first-order 
convergence  method  proposed  here  always  must  converge  on  a  solution 
if  the  initial  guess  is  close  enough. 

The  idea  that  the  accuracy  of  che  initial  estimates  might 
affect  convergence  provokes  one  to  consider  a  method  for  "sneaking 
up"  on  that  "difficult"  solution.  This  approach  would  proceed 
as  follows: 

(a)  Begin  by  finding  a  solution  for  trim  in  a  nearby  region 
to  that  in  which  convergence  has  been  found  difficult. 

(b)  Progressively  change  the  problem  statement  toward  that 
statement  representing  the  difficult  region.  For  each 
step,  compute  a  trim  solution  and  use  this  solution  as 
the  initial  estimate  for  the  solution  of  the  next  step. 


If  the  convergence  technique  becomes  too  time  consuming, 
certain  simple  changes  in  approach  might  be  attempted  to  shorten 
the  computational  time  required.  For  example:  the  rectangular 
arrays  in  the  linearized  Eqs.  (2)^,  (7)L,  (11 )L,  (12)  ,  and  ( 1 ^ )  are 

recomputed  during  each  iteration  cycle  for  the  iteration  approach 
suggested  in  the  previous  section.  It  may  not  be  necessary  to  do 
this  every  cycle.  Computing  new  arrays  every  M  cycles  (M  >  1 ) 
may  save  time  but  will  not  affect  the  ability  of  the  method  to 
converge  on  a  solution. 

To  see  how  this  abbreviated  method  works  consider  Figure  2. 

Let  y  be  the  required  solution-value  for  y.  The  problem  is  to 
s 

find  x  .  Estimate  x  as  the  solution.  Compute  y  and  the  gradient 
s  e  o 

(slope),  s.  (The  slope,  s,  in  this  example,  is  analogous  to  the 

linear  arrays  in  vector  expressions  (2)  ,  (7)r,  etc.)  Using  s,  and 

L  L 

the  known  error  y  -  y  ,  determine  x  as  the  next  proposed 

solution.  Continue  this  process,  but  use  the  same  slope  value 
each  time.  As  one  sees  from  this  figure, the  iteration  is  con¬ 
verging  on  the  solution,  even  though  s  is  held  constant. 

Whether  or  not  this  abbreviated  method  shortens  convergence 
time  depends  on  the  complexity  of  the  aerodynamic  expressions  - 
particularly  f  and  w.  The  linear  arrays  are  computed,  numerically, 
column  by  column.  Every  time  a  column  is  generated  in  Fc,  for 

example,  values  for  the  elements  in  f  must  be  calculated.  If  this 
calculation  is  even  moderately  time-consuming,  finding  the  numerical 
values  for  the  arrays  will  be  very  time-consuming.  In  this  case, 
the  iteration  process  can  probably  be  accelerated  using  the 
abbreviated  method. 

1.4  STABILITY  DERIVATIVE  CALCULATION 

The  linearized  expression  derived  in  the  trim  solution  can 
be  used  to  generate  the  stability  derivative  matrices.  The  terms 
A-frj  and  AVj  must  be  added  to  Eqs.  (2)L  and  (7)^,  respec¬ 
tively,  to  account  for  the  dependency  of  f  and  w  on  v^.  Recollect 

that  these  terras  were  not  required  for  the  trim  case,  because  non¬ 
zero  &  trim  cases  were  not  considered. 
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Combining  Eqs.  (3),  (4),  (6),  (2)L,  and  (7)  L  with  the  added 
A§  terms,  the  following  expression  is  derived: 

|L  [PVI  +  PVA  VW  <’  -WFPVI-WVl)]  °!Ae 

+  jL  [Ptl  '  PVA  VW  <WF  Ptl  +  V  ]  °|* 

+  |L  [PC  '  PVA  VW  <MF  PC  +  V]  I  * 

Comparing  (38)  to  (10)  shows  that  the  factors  in  braces  are 
the  required  stability  derivative  arrays. 

I.?  ROTORS  WITH  FLEXIBLE  BLADES 

In  previous  sections,  it  has  been  assumed  that  the  forces 
generated  by  all  N  vehicle  components  can  be  represented  by  a 
model  having  the  form 

fi  -  fi  <VU’  TA1-  *Ii>  c’  V  J  -  '*  2> . > 

i  -  1,  2, . N  (1 ) 

Given  the  columns  v^,  v^,  and  c  (along  with  the 

physical  constants),  Eq.  (1)  can  be  used  to  calculate  f^.  This 

equation  is  not  intended  to  represent  dynamic  interfacing  between 
f^  and  its  functional  argument.  Eq.  (1)  is  purely  a  static  relation¬ 
ship. 


Most  vehicle  elements  have  independent  dynamic  characteristics. 
Lifting  surfaces  and  bodies  have  structural  vibration  modes.  Engines 
have  lags  and  high  frequency  oscillatory  characteristics.  Usually, 
these  dynamic  effects  can  either  be  neglected  because  they  involve 
frequency  ranges  far  removed  from  those  of  interest  for  flight 
dynamics  considerations,  or  they  can  be  included  in  some  simple 
peripheral  manner  (e.g.,  a  simple  lag  on  throttle  command  might  be 
used  to  represent  engine  dynamics).  In  the  special  case  of  rotors 
with  flexible  blades,  the  dynamics  of  the  blades  must  be  considered, 
because  blade  motion  has  an  extremely  important  influence  on 
flight  dynamics. 

To  say  that  blade  dynamics  have  an  important  influence  on 
flight  dynamics  does  not  imply  that  a  static  function  (1)  cannot  be 
defined  for  a  rotor  with  flexible  blades.  The  function  (1)  is 
called  a  "quasi- static”  representation  when  applied  to  a  rotor 
with  flexible  blades.  In  such  a  quasi-static  representation,  f^ 


is  still  defined  as  a  static  function  of  the  argument  (i.e.,  no 
dynamic  characteristics  are  included  in  the  transfer  function 
fi  "  fi  (ars))*  However,  the  dynamic  motions  of  the  blades  are 

included  in  that  they  affect  the  actual  static  value  of  f^  in 

a  substantial  manner. 

In  reality,  time  should  be  included  in  the  argument  of  (1) 
when  applied  to  the  flexible  rotor.  However,  such  dynamic  effects 
usually  have  little  influence  on  vehicle  flight  dynamics.  If 
special  rotor  structural  dynamics  are  being  studied  (i.e.,  flutter, 
vibrations  and  some  mechanical  stability  augmentation  schemes), 
the  quasi- static  assumption  (1)  is  not  appropriate,  and  rotor 
dynamics  must  be  considered. 

Blade  motion  equations',  written  in  a  coordinate  system 
fixed  to  the  rotation  hub,  generally  appear  in  the  following  form: 


■  gj  i  -  1,  2....  00, 


(59) 


where  p.  is  the  coordinate  of  the  blade's j 'th  degree- of- freedom. 

(Flexible  blades  have  an  infinite  number  of  degrees- of- freedom, 
as  expressed  by  Eq.  (3).  The  driving  function  g^  usually 

contains  coordinates  of  all  blade  degrees- of- freedom,  and  time 
functions  known  to  the  blade  motion  problem.  This  functional 
dependency  of  g.  can  be  expressed  in  the  form 


V 


1  >  2,  3>  •  •  •*,  ty,  t,  K  ,  f[  m  1  ,  2»  •  •  ) 

(*0) 


where  is  rotor  blade  azimuth  position  and  are  physical  constants 

associated  with  the  blade.  Note  that  \[r  is  a  function  of  time,  as 
are  the  columns  v^,  v^,  ♦li'  and  c. 


Each  rotor  blade  applies  a  force  and  a  moment  to  the  rotating 
hub.  This  phenomena  can  be  represented  in  the  form 


1,2,  3-  •  •»,  p^,  ■  1 ,  2,  3,..  •»,  ty,  t,  K^,,  r  ■  1 , 2>  •  • ) 

(M) 


k  ■  1,  2... total  number  of  rotor  blades. 
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f  is  a  6X1  column  vector  containing  three  force  and  three 
rk 

moment  components  which  represent  the  loads  applied  by  the  k'th 
blade  to  the  rotating  hub.  These  components  are  stated  in  terms 
of  some  convenient  frame-of-reference  fixed  to  the  rotating  hub. 

The  rotating  forces,  f  ,  can  be  summed  over  all  the  rotor 

k 

blades,  transformed  to  the  nonrotating  airframe  through  sane 
t- dependent  transformation  matrix,  and  time  averaged.  The  result 


fi  '  r  /  |"R  (*>  £  fr  1  at  (1,2) 

*/0  L  all  kJ 

blades 

Although  v^,  vA1,  v^,  and  c  are  generally  functions  of 

time,  they  can  be  considered  constant  while  deriving  the  quasi¬ 
static  rotor  model  (l).  In  this. special  case,  the  t  can  be  removed 
from  the  arguments  of  Eqs.  (40)  and  (4l).  Also,  since  the 
rotor  is  being  treated  as  a  quasi-static  entivy,  the  degrees-of- 
freedom  associated  with  the  blades  can  be  assumed  periodic  over 
the  period  2n/P,  where  fi  is  the  constant  rotor  spin  rate. 

\|r  *  fit  (45) 

Because  t  has  been  removed  from  the  arguments  in  Eqs.  (4o) 
and  (41),  and  because  the  blade  degrees-of-freedom  move  periodi¬ 
cally  with  2rt/fi  (which  means  over  the  azimuth  angle  0  <  2rr), 

Eq.  (42)  can  be  expressed  in  the  azimuth-average  form: 


fi  “2 R  W  fr  d*  (44) 

where  b  is  the  total  number  of  blades  and  f  is  f  for  any 

r  rk 

blade.  Form  (44)  is  possible  because  the  motion  is  periodic.  Thus, 
all  blades  move  in  exactly  the  same  way  over  one  complete  revolution. 

Any  practical  solution  of  the  blade  motion  problem  requires 
one  to  consider  only  a  finite  number  of  blade  degrees-of-freedom. 

In  almost  all  case  :,  only  one  degree- of -freedom  needs  to  be  consid¬ 
ered. 
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For  the  present  development,  suppose  M  degrees-of- freedom 
are  chosen  to  represent  the  flexible  rotor  blade.  Define  the 
blade  state  column  q  as  MX1  column  vector  assembled  from  the 
coordinates  as  follows: 


q 


(<■:.) 


6m 


The  g  column  is  MX1  vector  composed  of  all  of  the  g^ 

forcing  functions,  assembled  analogously  to  Eq.  (4^).  With 
this  notation,  Eqs.  (39)  and  (40)  can  be  written  in  the  compact 
form  (dropping  reference  to  the  physical  constants): 

<i  -  g  (q»  4>  ♦)  (46) 

Generally,  this  equation  must  be  solved  numerically 
because  of  the  difficulties  that  arise  when  one  attempts  to  expand 
g.  Classically,  certain  assumptions  are  made  concerning  the 
blade's  aerodynamic  characteristics.  The  g  column  is  expanded,  and 
the  q  and  4  dependent  terms  are  transposed  to  the  left  side  of  (46). 
Further  assumptions  allow  a  Fourier  series  approach  to  be  appli¬ 
cable  to  the  resulting  linear  differential  equation  in  time  varying 
coefficients,  until  a  closed  form  solution  for  q  (t)  is  reached. 

This  approach  is  not  necessary  when  numerical  techniques 
can  be  employed.  The  classical  approach  also  becomes  seriously 
restrictive  when  special  nonlinear  rotor  phenomena  are  being 
studied. 

A  convenient  state  variable  notation  can  be  defined  for 
the  q  and  q  columns.  Define  the  2MX1  column  vector  £: 

?-(?)  0-7) 

To  determine  the  blade  motion  numerically,  first  estimate  a 
value  of  £  at  \jr  >0,  and  denote  this  state  vector  as  Ce  (0).  With 

this  estimate,  £  (t)can  be  calculated  by  numerical  solution  of  (46). 
Denote  the  value  of  £  at  *  »2x,  using  (L  (0),  as  £  (2x).  If  £_  (0) 

was  correct,  then 
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('•8) 


5.  (at)  -  ?e  (o) 

because  the  blade  motion  is  periodic  ever  0  <  ♦  <  2s.  Of  course, 
condition  (1*8)  will  seldom  occur  from  the  initial  estimate.  To 
determine  the  correct  initial  condition,  an  iteration  process  can 
be  used  that  is,  very  similar  to  the  trim  search  iteration  used  for 
the  entire  vehicle. 

After  £  (2s)  has  been  computed,  each  element  of  £  can  be 

o  * 

perturbed  (one  at  a  time)  a  small  amount,  and  a  new  £  (2s)  column  can  be 
computed  for  each  element  perturbation.  From  these  2M  calculation 
of  £  (2s),  the  matrix  can  be  assembled  such  that 

A£  (2s)  -  A£  (0)  (U9) 

Each  column,  1,  of  Z^q  is  the  column  £^  (2s)-  £q(2x),  where 
£^  (2s)  is  the  state  vector  computed  with  the  i'th  element  of 
£  (0)  perturbed. 

Now  say  that  the  true  value  of  £  (2s)  is  given  by 


£  (2s)  .  £o  (2s)  ♦  A£  (2s)  (50) 

and  that  the  true  value  of  £  (0)  is  given  by 

£  (0)  -  £#  (0)  ♦  A£  (0)  (51) 

Since  the  blade  motion  is  periodic, 

£  (0)  -  £  (2s)  (52) 

Thus,  combining  Eqs.  (50),  (51)  and  (52), 

£e  (0)  ♦  A£  (0)  -  £0  (2s)  ♦  Z^  A£  (0)  (53) 


Solving  for  A£  (0),  the  true  Initial  condition  is  given  by 
£(0)-£e(0)*A£(0)-£#(0)4(1-Zzort  [£o  (2s)  -  £#  (0)]  (5M 

Eq.  (5*)  would  provide  the  exact  initial  condition,  if 
(h6)  were  linear  in  q,  q.  Many  time%  the  equation  is  quite  linear, 
but  at  extreme  operating  conditions  (blade  stall,  compressibility 
drag  rise,  etc. ),  (t6)  may  be  quite  nonlinear.  Such  nonlinearity 
will  cause  the  array  Z^q  to  be  a  function  of  £e  (0).  For  these 
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cases,  the  process  outlined  above  for  finding  £  (0)  may  have  to 
be  repeated  several  times,  using  the  computed  £  (0)  from  Eq. 

(5*0  for  the  estimate  before  the  next  iteration  cycle.  Note  that 
during  the  trim- search- Iteration  process,  this  blade  iteration 
process  takes  place  automatically. 

After  £  (0)  is  known,  one  more  integration  can  be  performed 
over  0  <  ♦  <  2k.  This  time,  Eq.  (4k)  will  be  solved  along 
with  the  blade  motion  equation.  The  result  of  this  final  sweep 
will,  of  course,  represent  the  desired  functional  computation,  (i). 

The  function  (1)  will  be  required  for  two  different  kinds 
of  calculations: 

(a)  The  values  of  the  variables  in  the  argument  of 
independent  of  any  other  set  of  values  for  these 
variables. 

(b)  The  values  of  the  variables  in  the  argument  of  0)  are 
removed  from  those  values  used  for  a  previous  computation 
of  f ^  by  only  an  infinitesimally  small  amount. 

In  ease  (a),  the  matrix  will  hate  to  be  computed,  in  case  (b), 

however,  the  computed  for  the  initial  solution  for  ^  (using 

the  unperturbed  values  of  the  argument  variables  in  (1)  can  be  used 
again  for  the  perturbed  computation.  This  procedure  will  save 
considerable  computer  tine  and  allow  the  rotor  loads  to  be 
computed  separately  from  loads  of  other  vehicle  elements  without 
compromising  program  efficiency  (l.e.,  £  (O)ean  be  found  effi¬ 
ciently  in  the  rotor  computational  routine}  otherwise,  C  (0) 
would  have  to  be  included  with  the  other  elements  of  the  t  column 
during  the  trim  search  phase). 

During  the  trim  search  phase  of  computation,  the  column  £  (0) 
will  have  to  be  inspected  for  convergence  to  a  trim  solution,  along 
with  the  t  and  w  columns. 
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XX.  1  xmorocTioi 


Part  I  describes  tha  Modular  Stability  Derivative 
Prop  ran  (NOSTAB)  in  general  terms.  In  Part  1 ,  an  aircraft  is 
represented  by  functional  relationships  (as  defined  by  Iqa. 

(2),  (7),  (11),  (12)  and  (14))  and  by  geometric  relationships 
(Bqs.  (3),  (4)  and  (5))*  The  purpose  of  this  work  is  to 
define  the  specific  functional  and  geometric  models  of  an  air¬ 
craft  presently  used  in  the  MXTAB-B  program.  These  mathematical 
models  will  undoubtedly  be  revised  and  expanded  as  MXTAB-B  is  used 
to  study  specific  vehicles  operating  in  specific  flight  regimes.* 

It  is  believed,  however,  that  the  mathematical  expressions  derived 
here  are  quite  general,  and  are  sufficiently  flexible  to  allow 
most  modifications  to  be  made  with  ease.  In  their  present  form, 
the  equations  will  apply  accurately  to  a  broad  variety  of  V/STOL 
(and  conventional  aircraft)  configurations  operating  over  large 
regions  of  their  individual  flight  regimes.  Modification  of  the 
MX  TAB  equations  will  probably  occur  when  boundary  regions  (in¬ 
volving  special  aerodynamic  effects)  are  studied,  or  when  vehicle 
configurations  with  very  specialised  components  are  considered. 

Part  II  is  divided  into 'sections,  most  of  which  relate 
directly  to  the  equations  of  Part  I.  Section  2  deals  with 
aircraft  element  force  generation,  and  shows  the  development  of 
the  equations  required  to  represent  functional  Bqs.  (2)  of 
Pert  I.  HOSTAB-B  uses  five  basic  subroutines  to  pens  rate  the 
general  force  column,  f.  These  are  PORCS,  BODY,  LIFT,  SWEEP  and 
ROTOR.  Section  2  is  divided  into  subsections,  each  addressing  one 
of  these  vehicle  element  subroutines.  Because  of  the  complexity 
of  the  aerodynamic  rotor  analysis,  the  basic  rotor  equations  are 
derived  in  Part  III.  The  general  equations  presented  in  this 
part  are  simplified  end  re-presented  (ss  programmed  in  HOSTAB-B) 
in  Section  20. 

Section  3  shows  the  derivation  of  equations  for  the  geometric 
matrices  L  and  6,  ss  defined  by  expressions  (3)  end  00  of  Pert  I. 

Sections  4,  3,  0  and  7  show  derivations  of  the  equations 
used  in  MOSTAB  to  generate  the  functional  relationships  defined  by 
Cqs.  (7),  (il),  (12)  end  (1*0  (respectively)  of  Pert  I. 

Section  8  discusses  the  general  matrix  operation  subroutines 
used  in  MXTAB-B.  The  equations  used  in  the  Eulerian  coordinate 
system  transformation  subroutine  (EULER)  are  presented.  The  other 
operational  subroutines  are  discussed  without  equations,  sines  such 
subroutines  are  widely  used  in  computer  applications  and  require  no 
definition  specifically  constructed  for  MXTAB-B. 

•The  -B  code  number  on  the  title  MXTAB-B  denotes  the  B  version  of 
the  program.  Versions  including  advanced  aerodynamics  additional 
element  models  fe.g.,  turbojets),  will  bo  given  different 
version  codes. 
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Section  9  shows  the  derivation  of  the  transformations 
required  to  transform  stability  derivative  matrices  expressed  in 
overall  vehicle  coordinates  to  oenter- of- gravity  and  stability 
axis  system  coordinates.  No  reference  to  this  section,  or  to 
Section  8,  is  made  in  the  general  M06TAB-B  program  description 
in  Chapter  V  of  the  main  text  or  in  Fart  I. 
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A.  Subroutine  FORC 1 

In  Part  I  it  was  assumed  that  a  fore#  column,  f,  could 
be  calculated  knowing  state  vector  columns,  Vj,  v^,  v  and  c 

(Eq.  2  In  Reference  1,  or  Eq.  1  of  Appendix  I,  denoted  here  as  Eq.lF). 

f  »  f(Vj,  vA,  Vj,  c,  K^,  j  -  1,2  •••)  (IF) 

where  K.  are  physical  constants  pertaining  to  a  specific 
aircraft.  J 

A  subroutine  named  PCiCI  perforas  the  functional  operation 
defined  by  Eq.  (IF).  Given  the  oolnens  shown  as  argwenta  in 
Sq.  (IF),  FORCE  returns  vehicle  elenent  loadings. 

Two  options  are  available  in  FORCE*  Option  1  tells  FORCE  to 
determine  all  new  elenenta  for  f.  Option  2  tells  FORCE  to  conpute 
only  six  elensnts  of  f.  The  particular  six-element  suboolumn  to  be 
generated  is  specified  when  FORCE  is  called,  and  represents  the 
load  generated  by  a  single  aerodynanic  els— nt. 

At  the  present  tl— ,  FORCE  calls  three  subroutines  for  the 
purpose  of  calculating  vehicle  ele— nt  aerodynamic  loading.  These 
are  BODY,  LIFT  and  ROTOR.  1GDY  computes  the  aerodynamic  loads 
gemrated  by  fuselages,  nacelles* etc.  UR  produoes  load  values 
for  nonrotating  lifting  vehicle  elensnts  such  as  wings  and 
empennage  surfaoes.  ROTOR,  in  conjunction  with  a  subroutine  called 
SWEEP,  calculates  loadings  produced  by  helicopter  main  and  tail 
rotors,  propellers, etc. 

In  the  future,  other  forcing  element  routines  can  be  added 
to  this  library  of  three  to  represent  such  additional  eomponenta 
as  turbojet  engines  and  rockets. 

FORCE  contains  no  —  rodynamic  expressions,  but  is  a  logical 
subroutine  which  directs  the  operation  of  calculating  aerodynamic 
forces.  FORCE  determines  which  aerodynamic  elements  are  to  be 
exercised,  addresses  the  proper  load- calculating  subroutines 
(BODY,  UR  or  ROTOR),  and  assigns  tbs  proper  set  of  physical 
constants  to  a  O0M4OR  region  before  addressing  the  load- computing 
routine (s)  •  The  computed  loads  are  transferred  back  to  the  main 
program  through  FORCE. 

Figure  1  shows  the  gene ral  operation  of  the  subroutines 
FORCE,  BODY,  LIR,  ROTOR  and  SWEEP  as  thsy  interlace 
to  compute  aerodynamic  element  loads.  BODY,  UR  and  ROTOR  use 
the  Euler  resolution  subroutine  KJIZR.  This  general  use  of 
EOIZR  is  not  shown  on  the  diagram •  The  ROTOR-SWEEP  interface  will 
be  outlined  in  the  ROTOR  section  of  this  report. 

2k 
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B-  Subroutine  BODY 

This  subroutine  receives  the  following  information  when  it 
is  called: 

(a)  The  three  translational  and  three  rotational  airspeed 
components  at  the  body  reference  point.  These  velocity 
components  are  given  in  overall  vehicle  axes  (see  Reference  1 ) . 

(b)  Three  Euler  angles  \|r.,  0.  ,  which  are  used  to  rotate 
vectors  expressed  in  overall  vehicle  coordinates  to  a 
reference  system  conveniently  related  to  the  body.  Ihe 
reverse  resolution  is  also  done  with  these  angles. 


(c)  The  aerodynamic  coefficients,  characteristic  areas, 
lengths, etc.,  representing  the  characteristics  of  the 
specific  aerodynamic  body  being  considered. 


At  the  present  time,  BODY  Incorporates  equations  which  derive 
from  the  following  six  aerodynamic  coefficient  expressions 

°x  -  -  K*  C1  a  +  °2  e) 

(55) 

Cy  ■*  (Cyo  +  Cy.  p ) 

(56) 

cz  *  *  (Czo  +  C.1  a) 

(57) 

cx  •  0 

(58) 

C  ■  C  +  C  ,  a 
m  mo  ml 

(59) 

C  *  C  +  C  ,  6 
n  no  nl  H 

(60) 

The  coefficients  in  the  above  equations  are  functions  of  the 
specific  configuration  of  the  aerodynamic  body,  and  are  input  to 
the  M06TAB  program.  At  the  present  time,  these  coefficients  *re 
assumed  to  be  constants.  A  more  sophisticated  set  of  expressions 
would  allow  these  coefficients  to  vary  with  local  aerodynamic 

conditions. 


Dimensional  forces  and  moments  are  computed,  using  the 
coefficient  expressions  (55  -  60)  and  relying  on  the  following 
assumptions: 

(a)  The  dynamic  pressure  at  the  body  is  given  by 

2 

q&  a  1/2  p  Uh  (6l) 
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b)  The  longitudinal  angle  of  attack,  a,  is  sufficiently 
small  so  that 


a 


% 


(62) 


c)  The  sideslip  angle,  p,  is  sufficiently  small  so  that 


(63) 


Eqs.  (IB  -  9B)  can  be  combined  to  yield  the  following 
dimensional  force/mcment  equations  in  coordinates  of  the  aero¬ 


dynamic  body  being  considered: 

*b  -  -  </*  "S,  [V*  c0  ♦  VS,  ci  ♦  Vb  ca]  (6'*> 
h  *  •  1/2  rtb  [\*  °yo  +  “b  vb  <vJ 

S  ■  -  ’/*  *b  K2  °«o  +  %  wb  c.i]  f66* 

1^  *  0  (67) 

"b  -  “b'b  W  C„o  *  “b  wn  C.l]  (68) 

"b  -  ’/»  “S'b  K2  Cno  +  %  vb  °nl]  (69> 


Eqs.  (64)  -  (69)  are  those  presently  programed  in 
BODY.  The  Euler  angles  iu,  Q^,  flPb  are  used  with  a  standard  Euler 

angle  subroutine  called  EUIZR  to  derive  local  airspeed 
components  it,  v^,  k  ,  p^,  qfc,  r^  from  the  given  vector 

v..  Eqs.  (*&)  -  ( 69 )  are  executed,  and  EUIXR  is  called  again, 
this  time  to  rotate  force  and  moment  elements  Xb,  Yb,  Zb,  L\»  Mt»  Nb 
back  to  overall  vehicle  axes  x,y,s.  Of  course,  EUI£R  uses  the  given 
angles  in  the  order  -q>. ,  -0, ,  to  perform  the  force  and  moment 
resolution  b»ck  to  vehicle  D coordinates. 
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If  M06TAB  is  being  used  to  study  on  area  of  the  flight 
envelope  where  variable  coefficients  in  Eqs.  (64)  _  (69)  are 
important,  then  suitable  variable  coefficient  expressions  can  be 
formed  such  that  Eqs.  (64)  -  (69)  still  hold.  The  modular 
construction  of  MOST/IB  makes  it  easy  to  expand  these  equations  to 
include  nonconstant  coefficients  without  interrupting  the  overall 
program  function.  Such  changes  in  the  aerodynamic  expressions  occur 
locally  in  the  BODY  subroutine,  and  have  no  influence  on  other  parts 
of  the  program. 
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C.  Subroutine  LIFT 


This  subroutine  calculates  loads  produced  by  a  nonrotating 
lifting  surface  (IS)*  The  equations  are  formulated  in  a  manner 
very  similar  to  that  used  to  assemble  the  equations  for  BODY.  When 
LIFT  is  called# the  following  information  is  available: 

(a)  The  three  translational  and  three  rotational  airspeed 
components  of  the  IS  at  its  reference  point.  These 
components  refer  to  overall  vehicle  coordinate 

axes. 

(b)  Three  Euler  angles  .  9  .  cp  .which  are  used  to 
rotate  vectors  expressedin  vehicle  coordinates 

a  reference  system  conveniently  related  to  the  IS 
(hereinafter  called  IS  coordinates).  The  reverse 
resolution  is  also  done  with  these  angles. 

(c)  The  aerodynamic  coefficients,  characteristic  areas, 
lengthy  etc.,  representing  the  characteristics  of  the 
specific  iS  being  considered. 


Two  sets  of  lifting  surface  models  are  presently  incorporated 
in  the  LIFT  subroutine:  (1)  models  appropriate  for  angles- of- attack, 
a,  bounded  between  values  of  +  .2  radian  (as  12°);  and  (2)  models 
far  angles-of-attack  greater  than  .2  radian.  These  two  aerodynamic 
models  are  discussed  below  under  separate  headings. 


(1)  Aerodynamic  Lifting  Surface  Models,  -.2<a<.2  Radian 

The  models  presented  below  are  appropriate  for  most 
flight  conditions,  because  lifting  surfaces  operate 
below  stall  during  the  normal  operation  of  most  flight 
vehicles.  Some  vehicles  (e.g.,  helicopters)  do  fly- 
under  conditions  where  lifting  surfaces  are  stalled, 
but  most  of  these  cases  involve  such  low  dynamic 
pressures  that  the  surfaces  have  negligible  effect  on 
the  flight  characteristics. 

The  following  basic  aerodynamic  expressions  are 
incorporated  in  the  MOSTAB-B  LIFT  subroutine: 


°D  +lGDO  +  °D1  (aMVcU))  +  S2  (“'"“WCLd)2] 


(70) 


(71) 

(72) 
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Eqs.  (70)  -  (7?)  are  given  in  most  standard  texts  (e.g.,  Ref.  1) 
and  apply  particularly  to  unsvept  subsonic  vings.  All  of  these 
expressions  are  derived  in  Reference  2*  These  wing  coefficient 
expressions  are  very  elementary  equations  and  certainly  will  be 
revised  and  expanded  in  the  future,  depressions  for  ailerons, 
wing  sweep,  stall  and  even  compressibility  effects  car  easily  be 
added  to  this  basic  set  of  equations.  Many  other  special  wing 
effects  will  be  accounted  for  by  suitable  interference  velocity 
models  mechanised  in  subroutine  WASH.** 

Note  that  lift  and  drag  coefficients  are  used  in  (70)  and 
(72),  instead  of  the  local  IS  axis  system  coefficients  C  and  C  . 
This  has  been  done  because  (70)  and  (72)  are  the  most  x  ' 

familiar  force  expressions  for  a  wing.  C  and  c  are  easily 
derived  from  CL  and  Cp  by  referring  to  Figure  2. 2 


Figure  2.  Basic  Lift  and  Drag  Coefficient  Relationships. 


*  The  dihedral  angle,  r,  is  an  ” effective”  dihedral  angle.  Its 
numerical  value  depends  on  the  wing  geometric  dihedral  angle, 
and  its  position  on  the  element  to  which  it  is  attached.  See 
Reference  9,  for  example,  which  shows  CT  corrections  which  can 

b 

be  made  to  account  for  vertical  position  of  a  wing  on  a  fuselage. 


**  For  example,  aileron  deflection  causes  yawing  moments  to  be 
developed  by  the  vertical  fin  on  a  conventional  airplane.  This 
coupling  is  caused  by  rotational  interference  velocity  components, 
originating  because  of  a  wing  rolling  moment,  and  eventually 
impinging  on  the  vertical  empennage  surface.  This  effect  is 
easily  included  in  M06IAB  by  assembling  the  proper  elements  for 
the  characteristic  area  matrix  and  the  interference  velocity 
coupling  matrix  (see  the  Subroutine  WASH  section  of  this  part 
for  a  discussion  of  these  matrices). 


51 


Choose  hi  ,  o  .  qp  .so  that  the  IS  x  axis  lies  parallel  to 
the  overall  wing  lira  or  zero  lift.  Then 


sin  a  -  Cp  cos  a 

(76) 

Cz  =  -  CL  cos  a  -  Cp  sin  a 

(77) 

from  inspection  of  Figure  2. 

Iqs.  (TO)  -  (75)  and  the  derived  Iqs.  (76)  and 
(77)  require  that  h/^  0y,  be  chosen  so  that 

(1)  The  x  and  z  axes  of  the  I£  axis  system  lie  in  the 
wing's  plane  of  sysnetry. 

(2)  The  x  axis  of  the  Ifi  system  is  parallel  to  the 
wing's  overall  line  of  zero  lift. 


For  sufficiently 
can  be  written: 

sin  a 


small  a  and  p. 

the  following  equations 

~  tan  a  ~ 

W 

w 

u 

w 

f  COS  <1=1 

(78) 

P  *  ■ 

V 

w 

u 

w 

(79) 

Si  - 

1/2 

(80) 
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With  these  a* swaptions,  Eqs.  (70)  -  (77)  can  be 
combined  and  dimension&lized  to  yield  the  dimensional  wing 
force/moment  equations: 


Xv  [“V, w  +  SoUw  +  Si  uw  (ww  “  clWCIDUw ) 

+  Sa(Ww  "  “WCLD  Uw  j2  ] 


(81) 


(82) 


-  1/2  [(N  +  °Do)  Uw  ww  +  <T»  “v  ( VaWCU>uvf)]  (85) 


Iv.-l/2C8vbw(avr 


'1  +  2X 


+  a  b 
w  w 


1  +  3  X 


w 


2Wl  +  X  ) 

w7 


6(l  +  Xw)J  Vw  Uw 

-  w) 


M  =  +  l/2  pS  c  [c  u2+c  uwl 
w  '  [10  w  nux  w  wJ 


(84) 


(83) 


N 


w 


*  •  ,/a  ®vbw  lbw  [st(w X)]  (aw  ww  -  CD,  uw)p» 


(86) 
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Eqs.  (8l )  -  (3o)  are  executed  in  LH^'  in  much  the 
•same  way  loads  are  calculated  in  the  BODY  subroutine  Wie  air¬ 
speed  components  in  v.  applicable  to  the  IS  are  rotated  through 

V  V  ““  becone  V  V  V  V  V  V  *** • 

(  1 2L)- ( 1?L)  are  executed,  and  tne  resulting  loan  components  are 
rotated  back  to  overall  vehicle  coordinates,  through  angles 
-<P  -o„,  -<>  .  The  Euler  rotations  are  performed  by  the  general 

suBroutYne,  &JLER. 


If  flight  regions  are  studied  wherein  the  constant  coefficient 
approximation  is  invalid,  then  Eqs.  (8l)  -  (86)  can  still  be 
used,  but  with  suitable  expressions  for  the  variable  coefficients. 
Constant  coefficients  assumptions  on  Eqs.  (8l)  -  (86)  are  valid 
over  a  large  portion  of  most  V/STOL  flight  envelopes. 


It  is  important  to  note  that  the  classical  expressions  for 
wing  three-dimensional  effects  are  absent  from  the  equations 
(i.e.,  induced  drag  is  not  included  explicitly  in  Xqs.  (8l )  through 
(86).*  The  influence  of  wing  downwash  on  wing  loads  comes  into 
the  equations,  because  wing  interference  velocities  are  included  in 
the  vector  v.  when  LIFT  is  called.  The  expressions  that  deal  with 
interference  velocities  at  the  1*3  caused  by  the  same  IB  are  in¬ 
cluded  in  the  interference  velocity  subroutine  WASH. 

The  wing  equations  may  be  applied  to  empennage  surfaces 
which  do  not  have  a  plane-of-symmetry  (e.g.,  a  standard  vertical 
stabilizer).  Airfoils  with  camber,  or  special  offset  angles  and 
position'?  can  be  considered  also.  The  reference  point  and  Euler 
angles  can  be  chosen,  along  with  suitable  aerodynamic  coefficients, 
such  that  Eqs.  (8l )  -  (So)  are  reasonably  accurate  for  such  a 
surface.  The  reference  to  "wing"  equations  and  "lifting  surface" 
equations  is  intended  to  be  synonymous  here. 


The  coefficients  in  Eq.  (70 )  are  the  factors  of  the  parabolic 
profile  drag  polar.  Induced  effects  do  not  influence  these 
coefficients. 


«• 

Of  course,  a  wing  producing  &0Q  pounds  of  thrust  (a 
very  sizable  mmber  for  a  200  ft^  wing)  is  a  very 
unusual  wing!  The  equations  have  seriously  broken 
down,  having  a  profound  influence  on  the  performance 
prediction  under  the  example  conditions. 

To  avoid  such  serious  breakdown,  MOSTAB-B  bypasses 
Eqs.  (3l)  -  (36)  when  la  is  larger  than  .2  radian 

and  calculates  lifting  surface  loads  defined  by  the 
models  which  are  presented  below.  Only  lift  and  drag 
are  considered,  so  Y.  L  ,  M  and  N  (notation  of 
Bqs.  (8l)  •  (86)  ahe  set  to  zero.  Although  this 
large  angle  model  is  very  rough,  it  suffices  for  most 
cases  because,  the  model  is  seldom  required  except 
when  dynamic  pressures  are  low. 

Figures  J*  and  5,  taken  from  Reference  10,  were 
used  as  a  basis  for  modeling  the  large  angle  lift  and 
drag  coefficient  functions.  Figures  6  and  7  depict 
the  actual  models  presently  mechanized  in  LIFT  for 
large  angles  of  attack. 

Hie  large  angle  CL  curve  (Figure  6)  is  a  parabola 
with  a  maximum  value  of  T  .5.  Note  that  maximun  CL 
values  on  Figure  ^  vary  from  1.7  to  2.3!,.  Thesenigher 
Cp|w<tv  values  are  not  realistic  for  a  practical  lifting 

surface,  because  they  are  essentially  tvo-dimansional 
results. 


55 


(2)  Aerodynamic  Lifting  Surface  Models;  .2  >  a  >-.2. 

The  IS  models  presented  in  paragraph  (1)  above  are 
appropriate  for  most  aircraft  flight  conditions.  Even 
if  the  IS  is  stalled,  it  usually  has  little  effect  on 
flight  dynamics,  because  such  stalling  almost  always 
occurs  at  low  dynamic  pressures. 

When  |  a  |  gets  larger  than  approximately  12°, 
even  if  the  dynamic  pressure  is  low,  Eqs.  (8l )  - 
(86)  break  down  in  such  a  way  to  produce  large  nvmbers 
(which,  of  course,  are  in  error).  For  example  consider 
Figure  3,  which  shows  a  wing  on  a  hovering  compound 
helicopter  Immersed  in  a  rotor  wash  of  ^  ft/sec.  (a 
typical  hovering  rotor  downwash  velocity  at  a  point 
somewhat  downstream  from  the  rotor.  Figure  3  also 
shows  the  wing's  xw  -  zw  axes,  and  the  X^,  Zy  forces. 

If  Eqs.  (81)  and  (83)  are  used,  values  of  and  Z^ 

are  calculated  as  follows  (for  convenience,  use  Cp  , 

and  CL.  *  0,  p  -  .002377,  a  *  6.0) : 

U2 


X  *  2900  ~  lb 
w 

Zw  -  0.0 


(Wing  Platform 
zw  Area  =  200  ft2 

Figure  3.  Rotor-Wing  Interaction. 
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Of  course,  a  wing  producing  3*X)  pounds  of  thrust  (a 
very  sizable  nunber  for  a  200  ft2  wing)  is  a  very 
unusual  vingi  The  equations  have  seriously  broken 
down,  having  a  profound  influence  on  the  performance 
prediction  under  the  example  conditions. 

To  avoid  such  serious  breakdown,  MOGTAB-B 
bypasses  Bqs.  (fll)-(86)  when  In  is  larger  than  .  ^ 
radians,  and  calculates  lifting  surface  loads  defined 
by  the  models  which  are  presented  below,  only  lift  and 
drag  are  considered,  so  Y  ,  L  ,  M  and  N  (notation  >>r 

Bqs.  (81)  -  (86)  are  set  to  zero.  Although  this  large 
angle  model  is  very  rough,  it  suffices  for  most  cases 
because,  as  mentioned  before,  the  model  is  seldom 
required  except  when  dynamic  pressures  are  low. 


Figures  and  5,  taken  from  Reference  10,  wer*» 
used  as  a  basis  for  modeling  the  large  angle  lift  and 
drag  coefficient  functions.  Figures  6  and  7  depict  the 
actual  models  presently  mechanized  in  LIFT  for  large 
angles  of  attack. 

The  large  angle  C_.  curve  (Figure  6)  is  a 
parabola  with  a  maximum  value  of  1 .  5.  Note  that  maximum 
Cp  values  on  Figure  ^  vary  from  1.7  to  2.55.  These 

higher  Gjj values  are  not  realistic  for  a  practical 

lifting  surface,  because  they  are  essentially  two- 
dimensional  results. 


Pa  ‘luatot jjnoa  flujp  uon99S 


;>8 


Figure  h  .  Large  Angle  Curve  Frov  Reference  10 


I.  Tunr.ol-**ll 
Itrftll  tcetlon  I  ecrrccticni 


*9  •  viotajjjooa  J t X  uon»»S 
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Figure  *5.  Large  Angle  CT  Curve  From  Reference  1C 


Figure  8  demonstrates  this  point  by  showing  the  flat 
plate  drag  coefficient  for  rectangular  plates  as  a 
function  of  aspect  ratio  (taken  from  Reference  11). 
The  Cq  value  of  2.0  for  infinite  aspect  ratio  is 


Figure  8.  Drag  Coefficients  of  Rectangular  Plates  and 
Circular  Cylinders  as  a  Function  of  Their 
Height  (or  Diameter)  to  Span  Ratio. 


compatible  with  the  curves  of  Figure  Plates  (i.e., 
rectangular  wings  at  a  =  90°)  with  finite  aspect  ratios 
have  CL  values  between  1.18  and  2.0,  however,  so 
"o|max 

a  representative  value  of  1.5  was  arbitraily  chosen  for  the 
LIFT  model  depicted  by  Figure  6.  Based  on  Figure  4, 
the  following  logic  is  incorporated  in  LIFT  to  enable 
generation  of  Cp  for  -l8o°  <  a  <  +  l8o°.  First,  define 
the  three  basic  equations: 


S||a|<20°  *  °n0  +  S2  a 

Silal^fio0  =  2-V  K0  +  s2  A 


(88) 

(89) 


The  coefficients  CL  and  CL  in  Eqs.  (88)  and 

U0  2 

(89)  are  the  same  values  as  the  coefficients  in 
Eq.  (8l).  The  factor  2. 75  for  a  value  in  the 
region  l60°<|a|<  l8o°  was  obtained  from  -unpublished 
data  which  indicate  "reverse  flow"  profile  drag  values 
approximately  equal  to  2.75  times  the  "forward  flow" 
values.  This  factor  will  vary  from  airfoil  to  airfoil, 
of  course,  but  2.75  is  a  representative  value.  Using 
Eqs.  (87)  through  (89),  the  l8o°  drag  model  in  LIFT 
is  defined  by  Table  I: 


The  lift  coefficient  function  of  Figure  7 

represents  a  relatively  good  fit  of  the  data  of 

Figure  5  for  0  <  a  <  90°.  Table  I  defines  the  logic 

for  determining  CT  for  -l8o°  <  ex  <  l8o°,  where  a  is 

w 

the  same  lift  curve  slope  used  in  Eq.  (72). 


TABLE  II.  LIFT  CHARACTERISTICS 


After  the  logic  of  Tables  I  and  II  are  executed 
to  calculate  C,  and  CL,  Eqs.  (76)  and  (77)  are 
used  in  LIFT  to  calculate  Cx  and  C  (with  no  small  angle 
assumptions  on  a) ,  so  that 

X  =  -  4r  PV^C  (90) 

W  c.  X 

and 

Z  =  -  -3-  pV2SC  (91) 

w  2  z 


where 


(92) 


As  mentioned  previously,  Y  =  1^  =  Nw  =  Mw  =  0.0  for  large  a' s 
in  the  present  LIFT  subroutine." 
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D .  Subroutine  SWEEP 


SWEEP  contains  the  rotor  blade  equations.  These  equations 
are  integrated  radially  and  azimuthally  in  SWEEP,  a  process  which 
essentially  "sweeps"  the  rotor  disc  to  obtain  loads  and  blade 
motions.  At  the  present  time,  SWEEP  is  exclusively  called  by 
ROTOR.  SWL.ZP  has  been  designed  for  speed,  because  it  is  this 
routine  which  will  absorb  the  most  computer  time  during  any  MOSTAB 
run.  Thus,  certain  time-consuming  operations  (subscripted 
variable  usage,  general  coordinate  transformations  when  some 
elements  of  the  transformation  matrix  are  zero,  etc.)  have  been 
avoided  whenever  possible,  particularly  in  the  radial  integration 
loop  of  the  subroutine. 

The  subroutine  receives  the  following  information  when  it 
is  called: 

(a)  The  three  translational  and  three  rotational  airspeed 
components  at  the  rotor  reference  point,  already 
resolved  (by  ROTOR)  to  hub  axes. 

(b)  The  three  translational  and  three  rotational  inertial 
velocity  components  of  the  rotor  reference  point, 
resolved  to  hub  axes. 

(c)  The  time  derivatives  of  the  quantities  given  in  (b). 

(d)  An  index  defining  the  options  to  be  exercised  in  SWEEP. 

(e)  The  rotor  control  settings  (collective  and  cyclic 
pitch  angles). 

(f)  The  flapping  angle  and  flapping  velocity  of  the  blade 
at  ty=0,  if  the  rotor  under  consideration  is  a  flexible 
bladed  rotor.  (Only  two  state  variables  for  the  blade 
are  specified  here,  because  MOSTAB  presently  uses  one 
degree-of- freedom  for  each  blade.  If  additional  blade 
degrees- of- freedom  are  added,  additional  state  variable 
pairs  will  be  specified  here,  at  ty=0) . 

(g)  The  physical  characteristics  of  the  rotor,  including 
certain  constants  computed  in  ROTOR  prior  to  the 
calling  of  SWEEP. 

(h)  The  number  of  radial  anu  azimuthal  elements  to  be  used 
in  the  integrations. 


An  option  index  directs  SWEEP  to  adhere  to  one  of  the 
following  computational  schedules : 

(1)  Compute  the  blade  motion  of  a  flexible  blade,  but 
do  not  compute  shaft  loads. 

(2)  Compute  blade  motion  and  shaft  loads. 

(3)  Blade  motion  suppressed.  Compute  shaft  loads  only. 


The  work  that  follows  deals  primarily  with  option  2,  which 
is  the  most  general  option.  Options  1  and  3  are  simply 
suppressed  versions  of  2. 
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1 •  Blade  Analysis 

Relatively  general  equations  for  rotor  blade  motion  and 
loading  are  derived  in  Part  III.  The  axis  systems,  reference 
lines,  etc, are  discussed  in  detail  in  Part  III.  In  this 
section,  the  equations  derived  are  simplified  to 
the  form  presently  incorporated  in  MOSTAB.  The  simplifications 
are  predicated  on  the  following  restrictions  and  assumptions:* 

(a)  Rotor  speed  is  constant  (fi  =  0). 

(b)  Centrifugal  force  is  the  only  inplane  inertial 
force  important  to  vehicle  dynamics.  Other  inplane 
inertial  forces  are  neglected.  Of  course,  aero¬ 
dynamic  inplane  forces  are  important,  and  these 
are  included  in  MOSTAB. 

(c)  Flexible  rotors  have  one  degree-of- freedom:  the 
first  flapping  mode. 

(d)  Elastic  torsional  deformation  is  not  important. 

The  blade  reference  line  (BRL)  is  defined  in  Part  III. 
Because  of  assumption  (c),  the  following  expressions  can  be  written 
for  the  coordinates  of  the  blade  reference  line: 


x(s,t)  =  -  s 

(93) 

•  •  • 

x(s,t)  =  x  (s,t)  =  0 

(94) 

y(s,t)  =  y(s,t)  =  y  (s,t)  =  0 

(95) 

z ( s , t )  =  zQ(s)  +  z 1 (s)e(t) 

(96) 

In  Eq.  (9o),z^(s  corresponds  to  the  eigenfunction  (x) 

(discussed  in  Part  III  for  the  first  blade  flapping  mode. 

f(t)  is  the  generalized  coordinate  (ri-,  (t)  in  Part  III)  for 
this  mode,  z  (s)  is  an” initial  shape"  function,  which  can  be 
added  to  the  normal  mode  analysis  with  no  loss  of  generality, 
z  ' s)  is  the  shape  of  the  blade  when  it  is  not  vibrating,  and  when 
tRe  generalized  forcing  function  is  zero. 


* 

The  modular  nature  of  MOSTAB  permits  these  restrictions  to  be 
relaxed,  if  necessary,  by  simple  changes  in  the  subroutines 
without  having  to  revise  the  entire  program. 


The  eigenfunction  can  be  normalized  (by  simply  changing  the 
scaling  on  its  generalized  coordinate;  in  any  desired  manner.  Tf 
z^s)  is  normalized  such  that 


d  z(s) 
ds 


s=R 


(97) 


then  p  is  the  slope  of  the  rotor  blade  at  the  tip  (excluding  the 
initial  slope  that  may  be  contributed  by  z  (R)).  Thus,  £  becomes 
the  dynamic  flapping  angle  of  the  blade  usecL  in  classical  helicopter 
analyses.  Note  that,  for  £  positive  with  "upward  flapping”,  the 
functions  zq(s)  and  z(s)  are  generally  negative. 


The  blade  motion  equation,  in  terms  of  p,  is 


0 


2 

U)  fj 


(98) 


where  ca  is  frequency  of  the  first  flapping  mode  of  the  blade.  M 
is  the  generalized  mass  of  the  first  flapping  mode,  and  is  given^ 
by 


m(s)z1 


2(s)ds 


(99) 


F  ,  of  course, 

bf 


is  the  generalized  forcing  function,  and  is  given 


z]  (s )  fz  ( s, t )  ds 


(100) 


The  function  f(s,t)  is  the  external  BRL  loading  function 
less  the  acceleration  terms  used  in  the  vibration  analysis  to  get 
(o  and  z1 . 


f  (s,t)  =  p  (s,t)  +  m(s)z  ( 1 01 ; 

z  z 

where  p  (s,t)  is  the  total  distributed  loading  function  on  the  BRL 
due  to  Inertial  "apparent"  forces  and  aerodynamic  forces. 


Pz(s,t)  =  Pzi(s,t)  +  Pza(s,t) 


(102) 


1+7 


The  simplified,  inertial  distributed  loading  functions  presently- 
incorporated  in  MOSTAB  are 

p  (s,t)  =  -  m(s)fi  s  (103) 

Pyi(s,t)  =  0  (1o4) 

pwi(s,t)  =  -  m(s)  }  gz  +  z*  +  s  f(p  -  2ftq) sin  *  +  (q  +  2Hp)cos  | 

(105) 

These  equations  derive  directly  from  Eqs.  (293)*  (294)  and  (295) 
in  Part  III.  The  siaple  fonas  of  (103)  and  (104)  are 

attributable  to  assumption  (b)  of  this  section.  Eq.  (105)  has 
been  simplified  to  a  greater  degree  than  allowed  by  the  assumptions 
(a) -(d)  or  by  Eqs.  (93)  -  (96),  in  that  quadratic  terms  in  p,q  and 
r  have  been  neglected. 

The  airspeed  at  a  blade  element  is  given  by  Eq.  (302). 

With  present  MOSTAB  assumptions,  this  airspeed  is  (in  rotor  co¬ 
ordinates)  is 


VA  A  —  =  i  [uA  cos*  -  vA  sin*  +  z(pA  sin*  +  qAcos*)J 

+  j  £ua  sin*  +  vA  cos*  +  s(fi-rA)-z(pAcos*-qAsin*)J 
+  k  |wA  +  z  +  s(pA  sin*  +  qA  cos*)J  (106) 


Eq.  (305),  Part  III  is  used  to  resolve  this  airspeed 

expression  to  "blade  cooruinates " ,  as  follows. 
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(10?) 


where  u  is  the  spanwise  airflow  Uq  is  the  chordwise 
airflow,  and  uS  is  the  norraal-to-chord  airflow  at  a  blade  section 
located  at  s. 

The  transformation  matrix,  T,  can  be  simplified  to  the 
following  form: 


1 

0 

-z / 

- 6z ' 

1  q2 

. 

-6 

z  / 

0 

2 

where  Q  has  been  set  to  -0,  and  trigonometric  approximations 

sin  0=0 

cos  6  =  1-7;  Q2 

have  been  incorporated.  Note  that  cubic  and  higher  order  products 
in  small  angles  z'  and  0  have  also  been  discarded  from  the  T 
matrix  approximated  by  Eq.  (108),  and  quadratic  terms  in  z'  have  been 

neglected. 

Since  no  elastic  torsional  motion  is  included,  the  blade 
angle,  0,  is  given  only  linear  twist: 

0  =  Go"A1s  cos ^  -Bis  sim  +  01  (Hr  )  +  ( 1 09 ) 

where  0  is  the  collective  pitch  angle.  A,  and  B,  are 
the  „sual  lateral  and  longitudinal  cyclic  pitch  angles  (angles 
between  the  rotor  control  plane  and  the  shaft  normal  plane),  u 
is  the  linear  twist  angle,  and  5,  is  the  geometric  flap-pitch 
coupling  coefficient.  J 
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Eqs.  (315)  and  (31 6)  give  the  simplified  aerodynamic 
forcing  functions  presently  used  in  MOSTAB. 

fn  =  '  ~ T“  [(a  +  6o)unuc  +  61  u„2]  (110) 

fc  *  -  -T-  [(52  -  a)  “n2  +  5o  +  6,  u„uc]  (11,) 

Assuming  no  aerodynamic  loading  in  the  blade  span  direction, 

Eqs.  (lio)  and  (lll)can  be  used  with  the  inverse  (i.e.,  the 

transpose  for  an  Eulerian  transformation  matrix)  of  the  T  matrix 

to  get  the  distributed  aerodynamic  loading  functions  in 

rotor  coordinates.  The  results  of  this  operation,  in  terms  of  f 

and  f  ,  are :  n 

c* 


Eqs.  (103)  -  (105)  and  (112)  can  be  summed  directly 

to  get  the  simplified  BRL  loading  functions  used  in  MOSTAB: 


Px(s,t)  =  Pxi(s,t)  +  Pxa(s,t) 
Py(s,t)  -  Py&(s,t) 

Pz(s,t)  =  Pzi(s,t)  +  Pza(s,t) 


('ll?) 

(114) 

(11?) 


The  shaft  loading  expressions  for  one  blade  are  given  in 
Part  III  (Eqs.  (337)  >  (342).  It  is  desirable  to  separate  each 

of  these  load  components  into  the  inertial  contribution  and  the 
aerodynamic  contribution.  This  process  saves  computer  time  by 
preventing  certain  constant  inertial  integrations  (which  need  to 
be  computed  only  once)  from  being  repeated.  The  same  case  is 
true  for  the  generalized  forcing  function  given  by  Eq.  (100). 

The  generalized  force  integral  (from  Eq.  (100))  and 

the  shaft  loading  integrals  (from  Part  III)  are  written  below. 

They  are  split  into  inert- al  and  aerodynamic  contributions,  and 
several  terms  are  dropped  due  to  simplifications  embodied  in  Eqs. 

(93)  -  (96)  and  (103)  -  (10?). 


?0 


R 


F  =  F  +  F  . 

g  ga  gi 


=  /  zi 


R 

Pza  ds  -  /  2 1 


m  (Vs 


[(p-2nq) 


sin\|/ 


+  (q+2fip)cos\|rJJds 

R  C 

X  =  X  +  X  .  =  f  p  ds  -  I 
r  ra  ri  /  *xa  | 

■'o  ./o 

R 

Yr  =  Yra  +  Yr±  =  jf  Pya  ds 


2 

mft  s  ds 


(Ti6) 

(117) 

(118) 


R 


'r  “ra  ’  “ri  ’  f  Pza  ds  ”  f 


z_  =  z  +  z 


za  J  •"  J-z 

o  o 


m  .  g  +  z  +  s 


[fp-^q) 


sin\|/ 


(q+2fip)cost  J jds 


R 


L  =  L 
r  ra 


+  I»  .  =  -  r  z  p  ds 

ri  Jo  ** 


(119,* 

(120) 


M  =  M  +  M  .  =  ■  |zp 
r  ra  ri  II  *xa 


z  mfl  s  ds 


/  b  Pxa  +  s  pza]ds  -  / 

R  ^ 

ms  jsz  +  2  +  s^(p-2f!q)  siny  +  (q+2Bp)oos  yl  J 
R 

-/ 


“r  =  Nra  +  Nri  =  *  J  s  Pya  ds 

o 


(121) 


(122) 


The  second  integral  on  the  right  side  of  Hq.  (117) 
can  be  dropped,  since  its  effect  will  ultimately  cancel  among  all 
of  the  rotor  blades. 


51 


Several  terms  In  Eqs.  (110)  -  (122)  must  be  dropped,  in  order 
to  make  the  equations  consistent  with  each  other.  Several  other 
tenet  can  be  omitted  by  looking  forward  to  Xqs.  (149)  -  (154). 
(Expreeslon  of  rotor  load!  In  nonrotating  coordinates ) . 

Firet  consider  the  question  of  consistency.  Inplane 
Inertial  foroes  were  omitted  from  the  analysis. 

This  omission  caused  the  contributions  to  X  ,  Y  and  N  from  accelera¬ 
tions  g.  a  and  r  to  vanish*  The  rotor  maxes  such  inplane  load 
contributions  simply  because  it  has  mass.  These  effects  can  be 
Included  in  the  analysis  of  a  flying  vehicle  by  adding  suitable  terms 
to  the  nonrotating  airframe  mass  and  inertia  tensor.  To  do  this, 
simply  include  a  circular  lamina  structure  attached  to  the  non¬ 
rotating  airframe: 

(a)  The  lamina  plane  Is  perpendicular  to  the  rotor  shaft  and 
passes  through  the  rotor  reference  point. 

(b)  The  mass  of  the  lamina  equals  the  rotor  mass. 

(c)  The  polar  moment  of  Inertia  of  the  lamina  equals  that  of 
the  rotor. 

Since  the  added  structure  is  a  circular  lamina,  its  diametrical 
moment  of  inertia  equals  half  its  polar  inertia.  The  influence  of 
the  lamina  will  take  the  place  of: 


(1) 

(2) 

0) 


The  neglected  gx,  £  ,  and  r  effects  discussed  above 

The  -/  mg.  ds  term  in  Eq.  (119). 

Jo  z 

•R  o  . 


The 


-/ 


ms  p  sin  \| 1  ds  and 


-r 


ms  q  cos  ds  terms  in 


Eq.  (29). 


Thus,  to  use  the  lamina  substitution  consistently,  the  terms  listed 
in  (2)  and  (3)  above  must  be  dropped  from  the  equations. 

The  following  terms  can  be  dropped  due  to  cancellation  among 
the  two  or  more  blades  in  a  complete  rotor: 
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(a) 

The 

(b) 

The 

(c) 

The 

/  m  A  da 


tern  In 


terms  containing  sin 


/ 

•a 


ms  g  ds  term  in 
z 


Eq.  (117). 

\Jr  and  cos  in  Eq.  (119). 
Eq.  (121). 


Although  these  inertial  terms  are  justifiably  dropped  from 
the  shaft  loading  equations,  note  that  they  are  left  intact  in 
the  generalized  forcing  Eq.  (ill).  These  terms  can  be  left 
out  of  the  shaft  load  equations  (due  to  the  lamina  model 
or  interblade  cancellation),  but  since  they  do  affect  blade  motion, 
they  must  be  included  in  the  blade  generalized  forcing  function 
(Eq.  1l6). 
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The  aerodynamic  integrals  in  Kqs.  (lib)  -  (122)  must  be 
evaluated  numerically,  due  to  the  complexity  of  the  aerodynamic 
distributed  loading  functions.  The  inertial  terms  can  be  expressed 
in  simple  form  by  defining  the  following  constant  integrals: 


l2  = 


/  “‘i4* 
/ 

J  mz^s  ds 


'B 


a 

J *  ms2ds 


(125) 


(12V) 


(125) 


Note  that  Eq.  (125)  represents  the  second  mass  moment 
integral  for  the  blade.  In  terms  of  the  constant  integrals 
defined  by  Eqs.  (123)  -  (125),  the  inertial  components  in  Eqs. 
(Il6)  -  (12V)  may  be  written  (noting  that  z  =  z0  from  Eq.  (96): 


Fgi  =  -  ez  -  Ig  [(p-2nq)  sin\|r  +  (q+2fip)cos\|/  j 

(126) 

0 

I 

II 

•H 

u 

X 

(127) 

Y  .  -  0 
n 

(128) 

Z  .  =  -  I  V 
n  1 

(129) 

L  .  0 

n 

(150) 
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(j  )-Jg  pnqsim-  +  2np  coa  ( j  (151 ) 

Nrl  »  o  (15<?) 


An  important  observation  can  be  made  from  Iq,  (131). 
In  most  helicopter  applications, 


(155) 


This  is  exactly  true  if  the  natural  blade  frequency  is  u 
(as  is  the  case  for  an  articulated  rotor  with  no  flapping  hinge 
offset)  2and  the  blade  is  vibrating  at  its  natural  frequency.  The 
term  (fip  +  P  )  is  seen  to  be  a  small  difference  between  two  very 
large  quantities.-  This  difference  is  the  source  of  serious  errors 
in  many  numerical  determinations  of  rotor  blade  motion. 

To  avoid  the  numerical  difficulty  discussed  above,  Eq. 

(98)  can  be  used  to  eliminate  '&»  IHiis  can  be  done  in  Eq.  (129) 
as  well  as  in  Eq.  (151).  The  equations  will  be  written  with 
this  substitution  in  the  summary. 
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2.  IttBfctlOB  lUMMfy 

The  equation*  used  in  MOSTfcB  are  summarized  below.  They 
are  repeated  from  expressions  given  on  the  preceding  pages*  For 
convenience,  they  are  renumbered  as  IS  through  27s. 


z(a,t)  =  zQ(«)  +  Zy  (a)  p(t) 

Os) 

1 

. .  2  F 

p  +  a)  S  =  M" 

(28) 

rR  2 

M  =  |  m  z,  ds 

8  J„  ' 

(38) 

2 

pxi  3  8 

(US) 

0 

h 

£ 

(58) 

Pzi  =  |Sz  +  z*  +  8  [(p-2ftq)sin\|r  +  (q+2fip)cos\|J  j 

(6S) 

Vft  =  i  [ua  cost  -v^  sint  +  z  (pA  sint  +  qA  cost)] 

+  j  p*A  sint  +  vA  cost  +  s  (fi-rA) 

-z(pA  cost  -  qA  sint]+  k  |wA  +  z  +  s(pA  sint 

+  qA  cost)] 

(78) 

(88) 


56 


9*9  - 

o 


/ 

z 


z 

o 


f 


n 


f  *  - 
c 


Au co**  -  B„  ,ln*  -  0i(-r)+  y 

(s)  +  z'  (a)  0 

-f-  [<»+  »0>  Vc  +4l“n2] 

~f-  [<V>Un2+60Uc2+4lVe] 


(93) 


doe) 

(ns) 

(12s) 

(13s) 


+  (q+2fip)  cos\|f 


(143) 


(15S) 

(16S) 

(17S) 


(18S) 
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w 

A 

r 

/  p-d8 

(19S)  J 

R 

A 

J 

Yr  * 

{  pyads 

(20S) 

• 

R 

A  i 

/  V  \ 

j 

•5 

Zr  * 

l  p*. 48  -  I 

1  g  2  | 

^■“6J 

|  (218) 

R 

A 

L  = 
r 

'  J  2  pya48 

*0 

(22S) 

Mr  . 

R 

/  z  p  +  s  p 

•4  L  xa  za. 

ds  -  lg 

“jj®  +  (fi2-a)2)p 
.  g 

JB  [”2^  sin^  +  2^P  COSll,J 

1 

(258) 

N  = 

r 

/ 

-  J(.  8  V 45 

(24S) 

■ 

/“  48 

(258) 

*2  = 

I 

J  m  z^s  ds 

(268) 

R 

j[  mS 

(27S) 

t 

ri8 

3*  Solution  of  th>  Equations 


The  spatial  Integrals  (integration  from  0  to  R)  expressed 
In  Eqs.  (I8s)-(24s)  are  eraluated  using  the  trapezoidal  method. 
This  process  is  straightforward  and  requires  no  expansion  here, 
except  to  note  that  for  apy  value  of  \|r.  ,  the  integrals  can  be 
performed  when  p(^k)  and  p(vk)  are  known. 

The  time  integration  of  Eq.  (2S)  if  performed  as 
follows.  Given  the  value$  of  t  ,  p(i|r.  ),  pU.  ),  it  is  necessary 
to  determine  pUk+1)  and  P(\+17>  where  is  given  by: 


Vl=\+M  034) 

A\|cA  2n/(Specified  number  of  azimuthal  (Yi1}) 

integration  elements) 

Since  p,  p  and 
hub  loads  can  be 
straightforward 
interval  M, 


are  known,  the  generalized  force,  Fg,  and  the  blade 
computed  (if  the  hub  loads  are  required)  in  a 
manner.  Assuming  F  constant  over  azimuthal 
(2S)  becomes  6 


*P  +  <n2p  =  constant  =  F  /M  (136) 

D  O 

This  is  a  total  differential  equation  with  constant  coefficients, 
and  has  the  solution 


p(t)  =  p(tR) 


A. 


M  jo 

g 


PUJ 

cos  cot  + 

A. 

CO 

sin  cot 


g 


M  co2 


(137) 


P(t)  =  - 


eOk)  - 


A. 


M  co 

g 


co 


sin  cot  +  |pO'k)J  cos  cot  (US) 
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where  the  initial  value*  of  0  and  0  (0(40  and  0(40) 
have  been  used  to  determine  the  arbitrary  constant*  in  the 
homogeneous  solution  of  Eq»  To  determine  0(4!...)  and 

0(*k+1),  set  K+1 


t  * 


(139) 


Substituting  into  Eqs.  (9$)  and  (136), 


e(tk)  - 


M_  to 
g 


K,  + 


0) 


K, 


F 


M_  03 

g 


(i4o) 


P<Vi>  *- 

e(*k)  - 

Ffi  1 

03  K2  +  [0(tk)]  K1# 

(l4l) 

M  2 

03 

g  J 

where 

K1  =  COS 

IjvtojL 
\  n 

j  =  constant 

(1^2) 

Kg  =  sin 

/_o£i' 
\  n  > 

|  *  constant 

(143) 

The  numerical  integration  technique  outlined  above  provides 
much  more  accurate  results  than  the  slightly  simpler  approach 
(called  the  Euler  method)  which  uses  (136)  to  solve  for  0*(tyk)> 
pfid  then  calculates  0(i^+1  )  and  0(iK+ « )  based  on  the  assumption  that 
0  is  constant  over  the  internal  Ai|r.  In  fact,  the  experience  with 
this  technique  has  been  very  positive,  both  with  respect  to  the 
simplicity  of  the  mechanization  (resulting  in  very  rapid  computation) 
and  with  the  accuracy. 
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Knowing  «in(\|/.  )  and  cos(i| l),  the  quantities  sin(\l/.+1)  and 
Cos(^+1 )  are  easily  computed  by  direct  substitution  of* 

Eq.  134.  Making  the  usual  trigonometric  expansion, 


where 


»in(*k+1)  .  Kj 

sin(tk)  +  cos(^k) 

(144) 

C°s4k+i)  =  Kj 

cos(\|rk)  -  sin(\^k) 

(1J'r0 

Kj  =  cos  = 

constant 

(146) 

=  sin  A\|r  = 

constant 

(147) 

The  algorithm  specified  in  Iqs.  (144)  -  (l47)  can  be 
executed  much  more  rapidly  than  standard  sine  and  cosine  sub¬ 
programs  operating  with  Eq.  (134). 

Eqs.  (198)- (248)  are  expressions  for  the  rotating  load 
components  applied  to  the  rotor  shaft  by  one  blade.  These  com¬ 
ponents  refer  to  rotor  axes.  Part  I  describes  how  these 
rotating  components  can  be  resolved  to  a  nonrotating  axis  system 
and  time  averaged.  The  time  average,  multiplied  by  the  number  of 
rotor  blades,  represents  the  rotor  loads  on  the  overall  vehicle. 

The  resolution  and  time  averaging  process  is  expressed  as  Eq. 

(44)  in  Part  I.  This  equation  expresses  the  averaging  in 
integral  form.  If  the  rotating  loads  are  computed  at  discrete 
points  around  the  rotor  azimuth  (as  is  the  case  in  SWEEP),  Eq. 

(44)  takes  the  form  of  a  summation.  This  summation,  in  the  notation 
of  Part  I,  is 

N 

fi  ■  T  £  s<Vfrl  (m) 

i-1 

where  N  is  the  number  of  azimuth  stations  used  for  the  time 
integration  in  SWEEP  f.  is  the  vector  made  up  of  components 
X  ,  Zr#  Mr*  Nr  azimuth  angle  ty.,  and  R(f)  is  the  resold 
tlon  runctionrequireS  to  resolve  rotor  axis  system  components  to 
hub  axis  system  components.  The  vector  f.  represents  rotor  shaft 
loads  referred  to  hub  axes,  for  b  rotor  blades.  Eq.  (l48)  is 
easily  expressed  in  component  form: 
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•  H 


N 

T  L  (Xrl  '“‘i  *  Yrl  ,in\) 


i=1 


(^9) 


N 


'h  (-xrl  ,ln*l  +  Yrl  co,*i) 

i  =  1 


(150) 


N 


jl  y 

N  La 


"H  '  N  £-a  ri 
i=1 


(151) 


N 


h  -  T  Z  (  Lrl  COE’,'i  +  Mn  El“*i  ) 

i=1 


(152) 


N 

=  IE  (-Lrl  “lr,+i  +  Mri  co"*,i) 
i-1 


(153) 


NH  '  N  2  Nri 
i*1 


(15^) 


Eqs.  (149)-(154)  are  calculated  during  the  regular 

azimuthal  summation  (integration)  in  SWEEP,  provided  that  SWEEP 
is  instructed  to  compute  shaft  loads. 
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Chapter  TV  of  the  min  text  of  thi«  r*f*rt  prer**t  tn  tv? 
derivation  of  a  tip  loe<  nodal  whleh  haa  t»«  Ual©  i\r* 


»  *  »  -  njt^  (w) 

where  k  1*  a  oonatant,  and  l/  la  tbs  dietri bated  aerodynanio 
load  on  a  blade  at  the  tip,  in  lb/ft.  This  tip  loaa  motor  ia 
need  to  reduce  the  rotor  radlue  to  an  "effective  rediua",  R  : 


\  • *»  (vu, 

Aa  dlaouaaed  In  Chapter  IV,  the  distribute*  loadlr.r  fu/ctlcr. 

S'  ueed  in  (155)  la  calculated  aasuain*  aero  rotoi^  Induced 
iterferaooe  velocity. 

Baaed  on  the  expreaalon  of  H.  (155),  the  feiloirtag 
tip  loaa  nodal  ia  preaently  inoarporatea  in  the  M08AB-B  procran 


» •  *  -  kVM 


(157) 


where  B0  la  a  constant  (input)  tip  loaa  feetor,  and  k  ia  an 
input  oonatant.  p  ia  the  diatributed  aerodynamic  loadlnc 
at  the  blade  tip,  parallel  to  the  rotor  abaft,  ooaputod 
assisting  aero  rotor  Induced  velocity* 


Prior  to  aasehbling  the  aerodynanio  lntegrale  ia  Ha* 
(i6b)  -  (258^ the  ancle  of  attack  of  the  blade  tip  uelnf  inertial 
velocities  la  ccaputed.  p  la  than  oalouiated  baaed  on  this 
"inertial  speed"  ancle  of^attaok.  B  is  ocnpted  iron  (157), 
and  the  aerodynanio  intecrationa  then  prooeed  with  R  (Sq* 
(150))  as  the  upper  intecral  bound  in  lieu  of  R.  * 


5»  Co— nti  on  SWEEP  Equations 

Eqs.  ( 1 S ) - ( 2TS )  represent  the  expressions  presently 
included  in  the  SWEEP  subroutine.  The  computational  methods 
specified  by  Eqs.  (l40)-(l47)  and  (149)-(15^)  are  also  presently 

Incorporated.  This  very  basic  set  of  equations  can  be  easily 
expanded  to  include  more  aerodynamic  and  dynamic  phenomena,  if 
the  MOSTAB  user  requires  such  additional  sophistication  for  his 
particular  problem.  The  following  list  outlines  some  of  the 
most  basic  steps  that  might  be  taken  to  expand  the  present  SWEEP 
routine. 

(a)  Reverse  flow  can  be  accounted  for  in  a  very 
elementary  fashion  by  changing  the  sign  of 

a  (i.e.,  C^)  when  the  sign  of  Uq  changes.  This 

approaoh  is  taken  in  the  earlier  NACA  rotor 
analyses  l  references  7  and  8). 

(b)  Stall  and  compressibility  dreg  rise  can  be  accounted 
for  by  using  Iqs.  (128)  and  (158)  with  suitable 
variable  coefficient  models  of  the  form 

»  ■  »  <V  tte> 

bo  *  6o  (V  V 

b2  *  62  <V  ue) 


Iteeis  (a)  and  (b)  represent  relatively  simple  expansions  of  the 
SWEEP  equations.  More  involved  expansions  can  be  made,  resulting 
in  significant  (though  not  necessarily  prohibitive)  increases  in 
computer  tins  requirements.  The  list  below  represents  the  ex¬ 
pansions  that  oould  be  made  with  sons  effort.  Many  of  the  sugges¬ 
tions  require  expansion  of  the  equations  derived  in  Part  Ill. 

(1)  Elastic  torsional  blade  deformation  -  requires 
expansion  of  Appendix  XXX.  Blade  pitching  m— nt 
Inertial  and  aerodynamic  loading  functions  must 
be  developed. 

(2)  Additional  blade  dynamic  degrees  of  freedom  requires 
expansion  of  Part  Ill.  Inplane  and  torsional  (and, 
of  course,  additional  flapping)  modes  can  be  added. 

(5)  Terms  can  be  added  to  the  dynamic  expressions  to 
more  suitably  account  for  "load- coupled"  rotors 
(e.g.,  teetering  rotors).  See  Part  III. 

a 


(4)  Unsteady  aerodynamic  effects  can  be  added  (e.g., 
hysteral  stall,  feathering  damping  moments)  - 
requires  expansion  of  the  appendix. 

(5)  Sophisticated  "table-look-up"  airfoil  data  can  be 
incorporated.  (This  is  related  to  (4),  above*) 

(6)  Restriction  of  constant  rotor  speed  can  be  removed, 
allowing  stability  derivatives  on  fi  to  be  calculated. 


Although  the  expansion  areas  outlined  above  can  be  incor¬ 
porated  in  SWEEP,  they  add  additional  complexity  to  the 
equations.  Hems  (a)  and  (b)can  be  included  with  little  additional 
difficulty.  Items  (l)-(6)  (and  probably  many  other  effects)  can 
be  added,  with  additional  burden  on  computational  time,  input 
data  requirements  and  basic  preliminary  analysis  ( Part  III ) . 

The  equations  that  now  exist  in  SWEEP  provide  a  very  good  basis 
for  the  flight  dynamics  analysis,  however,  and  probably  should 
be  kept  relatively  intact  (possibly  with  simple  expansion  like 
(a)-(d))  for  simplified  studies*  Other  versions  of  SWEEP  could 
be  assembled  (e.g.  SWEEP1,  SWEEPS)  involving  various 
degrees  of  additional  complexity.  It  would  be  possible  to  choose 
any  routine  from  the  "SWEEP"  library  to  use  with  the  rest  of 
the  basic  M06TAB  program.  One  would  choose  the  version  with 
minimum  conqplexity  but  with  the  effects  needed  for  the  particular 
study. 
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I.  8ubroutln«  ROTOR 

Tlie  subroutine  receives  the  following  information  when  it 
is  called: 

(a)  The  three  translational  and  three  rotational  air¬ 
speed  components  at  the  rotor  reference  point.  These 
velocity  components  are  given  in  vehicle  reference 
axes  (see  Part  I  and  Chapter  V). 

(b)  The  three  translational  and  three  rotational  inertial 
velocity  components  of  the  rotor  reference  point. 

These  components  are  referred  to  overall  vehicle  axes. 

(c)  The  time  derivatives  of  the  inertial  velocity  components 
described  in  (b),  above. 

(d)  Three  Euler  angles,  ,  0  ,  qpy,  which  are  used  to 
rotate  vectors  expressed  in  overall  vehicle  coordinates 
to  a  reference  system  (later  to  be  defined  as  the  hub 
axis  system)  conveniently  related  to  the  rotor.  This 
local  coordinate  system  is  fixed  to  the  nonrotating 
airframe  (it  does  not  move  with  the  rotor  or  swashplate). 
The  reverse  resolution  process  is  also  done  with  these 
angles . 

(e)  The  control  variables  associated  with  the  rotor  (cyclic 
pitch  and  collective  pitch,  in  general) . 

(f)  The  physical  characteristics  of  the  rotor. 

When  ROTOR  is  called  the  first  time  to  analyze  a  particular 
aerodynamic  rotor,  certain  constant  terms  are  computed.  Among 
these  constants  are  1^,  I2,  M1  and  JB  specified  by  Eqs.  (25S) 

(28s),  and  ,  K2,  Ky  specified  by  Eqs,  (1^5),  0^6),  0^7),  and 
( 1 48 ) .  All  of  these  equations  appear  in  the  SWEEP  section.  Alfo, 
the  initial  conditions  on  the  blade  state  variables  (p(0)  and  3(0) ) 
are  set  to  estimated  values  read  into  the  MOSTAB-B  program  as  data. 
This  initial  operation  occurs  only  once  per  flight  condition  for 
every  aerodynamic  rotor  on  a  vehicle. 

As  soon  as  the  constant  terms  are  generated,  ROTOR  calls 
EULER  to  rotate  all  of  the  vectors  (e.g.,  airspeed,  inertial 
velocity)  required  for  the  rotor  equations  (contained  in  SWEEP) 
from  overall  vehicle  coordinates  to  "hub”  coordinates  (see 
Part  TIT  for  the  definition  of  hub  coordinates).  The  constant 
angles  ,  0  ,  <p  are  used  for  this  rotation.  If  the  particular 
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rotor  being  analyzed  has  rigid  blades,  ROTOR  calls  SWEEP  once  to 
determine  the  necessary  hub  loads.  EULER  is  then  called  (by  ROTOR) 
to  rotate  these  loads  from  hub  axes  to  overall  vehicle  axes.  For 
the  rotor  with  rigid  blades,  the  process  of  load  computation  is 
complete  at  this  point  and  ROTOR  returns  control  to  FORCE. 

If  the  rotor  being  studied  has  flexible  blades,  ROTOR 
determines  the  blade  initial  conditions  for  the  particular  trim 
solution  being  sought  by  M05T&B-B.  The  process  used  to  determine 
this  initial  condition  is  discussed  in  detail  in  Part  1.  in 
the  notation  of  Part  I,  SWEEP  is  called  with  the  initial  blade 
state  variables,  £  (0),  set  to  the  estimated  values  read  into 
MOSTAB-B.  SWEEP  returns  to  value  £  (2rr)  (i*e.,  the  angles  (  and  f- 
at  =  2rr) .  The  matrix  Z-_  is  generated  by  perturbing  the  elements 
in  the  estimated  initial  condition  column  (one  at  a  time)  and 
generating  the  resulting  perturbations  in  blade  final  conditions 
using  SWEEP.  During  these  blade  motion  calculations,  the  shaft 
loading  option  in  SWEEP  is  suppressed  to  save  computer  time.* 

The  corrected  blad*»  initial  conditions  are  found  by  solving  Eq. 

((A)  of  Part  I,  and  SWEEP  is  called  again  using  this  corrected 
initial  condition.  The  option  to  compute  shaft  loads  (in  hub  co¬ 
ordinates)  is  exercised  in  SWEEP  during  this  last  call.  These  loads 
are  then  rotated  to  overall  vehicle  coordinates  by  EULER.  The 
load  computing  process  thus  completed,  ROTOR  returns  control  to 
FORCE. 


An  option  is  provided  in  ROTOR  to  suppress  computation  of 
the  blade  motion  gradient  matrix  Z„Q.  This  option  is  used  to  save 
influence  on  the  corrected  blade  initial  conditions.  When  this 
option  is  exercised,  events  proceed  as  discussed  above  for  the 
flexible  bladed  rotor,  except  that  the  last  value  of  Z„0  computed 
for  the  particular  aerodynamic  rotor  under  study  is  used.  Instruc¬ 
tions  to  generate  a  new  Z_Q  are  suppressed*  The  conditions  that 
cause  re- computation  of  izl  to  be  unnecessary  are  discussed  in 
Part  I .  20 


The  loads  applied  to  the  shaft  need  to  be  computed  only  after 
the  blade  initial  conditions  are  known.  When  SWEEP  is  being 
used  to  determine  blade  motion,  the  shaft  load  calculation  is 
incorrect,  since  the  proper  initial  conditions  are  net  available. 
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II  .3  VEHICIZ  OEOMMRY 


Preceding  sections  of  this  work  have  been  involved  with 
the  equations  which  ultimately  compute  the  vehicle  force  column,  f, 
as  represented  functionally  by  Eq.  (2)  in  Part  I.  This 
section  continues  the  development  of  specific  expressions  for  the 
functional  equations  in  Part  I. 

Eqs.  (3)  and  (4)  In  Part  1  suffice  to  define 
the  geometric  matrices  L  and  G.  L  sums  the  loads  of  all  of  the 
vehicle  elements  to  a  final  six  element  load  column  p*  G  converts 
overall  vehicle  motions  (as  represented  by  three  translational  and 
three  rotational  inertial  velocity  components),  to  the  inertial 
velocity  column  v_.  The  elements  of  v  represent  the  inertial 
velocity  components  of  all  the  vehiclexelements.  It  will  be  shown 
subsequently  that  L  is  simply  the  transpose  of  G.  This  fact  saves 
core  space  when  MOSTAB  is  used,  since  only  one  geometric  matrix 
(either  G  or  L)  can  be  used  for  both  -  with  suitable  adjustments 
in  computer  logic  of  course. 

Consider  vehicle  element  i.  The  reference  point  of  element 
i  can  be  located  with  respect  to  the  overall  vehicle  reference  point 
by  a  vector  d^  Expressing  d  in  component  form. 


=  1  xA  +  $  yA  +  ^  (158) 

The  unit  vectors  i,  ^  refer  to  overall  vehicle  coordinates. 

In  Part  1,  the  symbol  s  is  used  to  represent  the  six- 
element  inertial  velocity  column  for  the  flight  vehicle  as  a  whole, 
s  can  be  split  into  two  vectors: 

V  =  lu  +  jv  +  lew 
co  =  'ip  +  jq  +  'fcr 

Since  d  is  the  vector  which  locates  the  aircraft  element 
reference  point,  i,  with  respect  to  vehicle  axes,  the  translational 
velocity  of  i  in  vector  form  is 

V±  =  V+oixdj  061) 

where  the  (x)  symbol  denotes  the  vector  cross  product.  Since 
d  =  0  (i.e.,  di  is  a  constant  vector  in  vehicle  coordinates), 

co.  *  co  (162) 


(159) 

(160) 
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Eqjs.  (l6l)  and  (162)  can  be  written  in  component 


form: 


=  u  +  qzi  -  ryt 
vA  *  v  +  rx±  - 
Wj_  =  W  +  pyi  -  qxt 

Pi  -  P 

«i  =  q 


(163) 

(164) 

(165) 

(166) 

(167) 

(168) 


Clearly,  Eqs.  (163)  -  (168)  are  the  component  forms  of 

Eq.  (4)  of  Part  I,  for  a  single  vehicle  eleaent.  The 
G  matrix  for  element  i,  ii  thus  given  by  the  expression 


1 

zi 

"yi 

1 

’zi 

xi 

1 

yi 

'xi 

unlab 
are  z 
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1 

;s 

1 

1 

(169) 


The  overall  vehicle  geometric  matrix,  G,  is  assembled  by 

stacking  all  of  the  submatrices  Gi  into  one  matrix  having  dimension 
6NX6,  where  N  is  the  number  of  vehicle  elements.  The  sub¬ 
matrices,  G.,  are  stacked  one  on  top  of  the  other  in  G,  starting 
at  the  top.  (The  order  of  submatrices  G  in  G  is  defined  by  the 
definition  of  the  column,  v^,  in  Part  I). 
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(170) 


Jhe  array,  G,  as  defined  by  Eqs.  (169)  and  (170),  is 
the  matrix  presently  mechanized  in  MOSTAB.  If  L  is  required, 
gT  is  used.  To  show  that  L  =  G^,  the  general  expression  for  L 
is  now  developed.  Let  the  force  and  moment  vectors  developed 
by  element  i  be  denoted  F.  and  M.  respectively.  These  vectors 
are  applied  to  the  aircrart  at  element  i's  reference  point.  They 
contribute  an  effective  force  and  moment  at  the  vehicle  reference 
point. 


(171) 


Mvi  -  Mi  “di  X  Ft  (172) 

The  sign  is  negative  in  (172)  because  -d.  locates  the  vehicle 
reference  point  with  respect  to  the  element  reference  point. 

Writing  (171)  and  (172)  in  component  form, 


Xvi 

-  xi 

(173) 

Yvi 

■  yi 

(17^) 

Zvi 

=  Z. 

1 

(175) 

L  . 

VI 

■  h  +  yizi  -  ziYi 

(176) 

M  . 
vi 

=  M  +  z.X,  -  x.Z. 
i  i  i  i  i 

(177) 

N  , 
vi 

-  N1  +  xiYi  -  yiXi 

(178) 

Hi:;.  (17*')  -  (178)  simply  represent  the  component  form  of 

Hi.  (i)  of  Part  I  tor  a  single  vehicle  element.  Thus,  the 

[  mntri.-:  for  a  single  element,  is  given  by 
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The  overall  vehicle  matrix,  L,  is  assembled  by  placing  all 
of  the  submatrices  L.  into  one  matrix  having  dimensions  6x6n, 
where  N  is  the  number  of  vehicle  elements.  The  submatrices,  L., 
are  placed  side  by  side  in  L,  starting  from  the  left.  (The  order 
of  submatrices  L.  in  L  is  defined  this  way  because  of  the  definition 
of  column  f  in  Reference  1). 


L 


(180) 


Clearly, 


(181) 


from  inspection  of  (180).  Also,  for  an  element  i, 

L1T  =  Gi  (182) 

from  inspection  of  Eqs.  ( 1 69 )  and  ( 1 T9 ) •  It  follows  directly 
that 


G 


which  is  the  desired  result. 


(185) 
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II. 4  INTERFERENCE  VELOCITY  COMPUTATION  (Subroutine  WASH) 

Continuing  to  Eq.  (7)  of  Part  I,  the  interference 
velocity  column,  w,  is  expressed  in  a  functional  form: 

w  =  w  (f,  vA,vI,vI,c ,  =  1,2  •••)  (7) 


The  purpose  of  subroutine  WASH  is  to  produce  the  column  w, 
given  the  quantities  shown  as  arguments  in  Eq.(7).  Many 
models  for  interference  velocity  have  been  proposed  and  used. 

These  models  are  functions  of  the  vehicle  type,  flight  regime,  etc. 
Although  a  rather  general  (and  classical)  interference  velocity 
model  is  presently  used  in  MOSTAB,  subroutine  WASH  will  undoubtedly 
go  through  many  phases  of  refinement  as  MOSTAB  is  used  to  study 
various  kinds  of  flight  vehicles. 


The  interference  velocity  model  presently  incorporated 
in  MOSTAB  will  now  be  discussed.  Define  the  six  element  column  d^ 
whose  elements  are  made  up  of  the  three  translational  and  three 
rotational  interference  velocities  at  element  reference  point  i. 
The  velocity  d  is  caused  only  by  element  i  (i.e.,  it  contains  no 
interference  velocity  effects  from  elements  near  element  i). 

Eq. (l84)gives  a  general  expression  for  d^ 


dl  ’  2p|V~^|  Ai  fl 

The  symbol  |vATi|  represents  the  scalar  magnitude  of  the  trans¬ 
lational  airspeed  at  element  i.  Three  elements  of  vA  represent 
the  components  of  translational  airspeed  at  the  reference  point. 
The  square  root  of  the  sum  of  the  squares  of  these  components 
is  | VATi |  •  The  symbol  represents  a  6x6  square  array  which  is 
input  to  MOSTAB.  Its  elements  have  units  of  l/area,  and 
represent  the  inverses  of  the  characteristic  areas  of  element  i . 
The  six-element  load  column  produced  by  element  i  is  F.. 

Both  di  and  f^  are  referred  to  overall  vehicle  coordinates. 


(184) 


i. 


Eq.  (2)  is  essentially  a  generalized  form  of  the 
Glauert  expression  for  lifting  rotors.  This  classical  expression 
for  downwash  of  a  lifting  rotor  takes  the  ecalar  form: 

T 

v  =  - n - — 

2tt  R^  p v 

where  v  is  rotor  downwash,  T  is  thrust,  R  is  the  rotor  radius  and 
V'  is  the  magnitude  of  translational  airspeed  at  the  rotor 
(i.e.  ,V/;*|VATil  for  the  rotor).  Clearly, (l85)is  a  specific  form 
of  (l84)when  one  element  of  A^  is  1/ttR^, 

In  substantiating  the  use  of  (185),  the  arguments  show 
that  this  equation  holds  for  rotors  in  axial  flight  (as  derived 
by  either  momentum  or  vortex  theory)  and  for  elliptical  wings 
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in  forward  flight.  Eq. (l85)has  enjoyed  rather  broad  usage 
in  the  analysis  of  wings  and  rotors  in  forward  flight. 

Now  form  the  total  6n  element  column  d  by  inserting 
submatrices  into  d,  one  on  top  of  the  other,  starting  at  the 
top.  At  the  present  time,  a  constant  coupling  matrix,  X,  is 
input  to  MOSIAB,  to  represent  the  interelement  induced  velocity 
interferences 


w  «  Xd 

X  is  a  6nx6n  matrix.  Eventually,  X  should  be  made  a  function  of 
and  Vj^,  to  account  for  wake  angles,  etc. 


(186) 
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II. 5 


CONTROL  SYSTEM  ( Subroutine  CONTRL) 


The  operation  of  this  subroutine  is  characterized  by 
Eq.  (11)  of  Part  I, 

=  c(t,  known  constraints,  known  constants) 

At  the  present  time,  CONTRL  is  simply  a  logic  routine 
which  determines  which  elements  of  c,  relate  to  elements  of  t, 
and  which  are  constrained  by  the  trim  problem  definition.  One-to- 
one  relationships  are  used  between  and  t. 

If  a  control  system  is  used  with  MOSIAB,  the  equations 
representing  the  system  would  be  included  in  CONTRL.  For  example, 
if  t  had  such  elements  as  cyclic  stick  position,  collective  stick 
position,  etc.,  CONTRL  would  determine  the  aircraft  element- 
oriented  control  settings  in  Cj.  (e.g.,  cyclic  pitch  angle, 
collective  pitch  angle)  by  using  suitable  equations  for 
the  linkages  between  the  control  sticks  and  the  rotor(s). 
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II. 6  xantSXAL  VELOCITY  (tubrootlM  VXLCTT) 


Eq.  (12)  of  Part  X  Indicates  the  dependence  of 
the  trim  inertial  velocity  column,  ,  on  the  trim  variable 
column,  t,  end  the  conetraints  of  the  trim  problem. 

s^  ■  §t  (t,  known  constraints) 

The  elements  of  t,  end  the  constraints  input  to  M06XAB  which  define 
the  trim  problem,  are  listed  below.  8ome  of  the  items  in  this 
list  are  not  used  by  VXLCTY,  but  are  required  by  the  subroutine 
FCERty).  The  appropriate  items  in  the  list  required  by  FCERty) 
will  be  considered  in  the  section  dealing  with  that  subroutine. 

(a)  Vehicle  weight,  V 

(b)  Overall  vehicle  axis  system  coordinates  of  the 
aircraft's  center  of  gravity:  xcg,  ycg,  scg 

(c)  Speed  of  the  vehicle  in  space,  denoted  V  in  this 
analysis 

(d)  Air  denslty,P 

e 

(e)  Turning  rate  (V  in  classical  airplane  notation 
for  the  yawing  Euler  angle) 

(f)  Pitch  rate  (either  6  or  q  can  be  specified,  by 
option  index,  to  represent  pitch  rate) 

• 

(g)  Roll  rate  (either  •  or  p  can  be  specified,  by 
option  index,  to  represent  roll  rate) 

(h)  Rate  of  cllrib  ( h) 

(I)  The  inertia  tensor  of  the  vehicle  referred  to 
overall  vehicle  axes  [  I  ] 

(J)  The  sideslip  velocity  'v) 

(k)  The  pitch  Euler  angle  for  vehicle  axes  (0  ) 

(l)  The  roll  Euler  angle  for  vehicle  axes  ( ♦  ) 

The  reader  is  referred  to  Reference  9  for  the  classical 
airplane  dynamics  analysis.  The  notation  used  in  Reference  9  will 
be  used  here. 


The  problem  encountered  by  VCLCIY  can  be  stated  in  a 
mathematical  foraat  as  follows: 

Jlven:  €>+»v#(p  or  4),  (q  or  »),  t,  &  and  V 

Determines  tha  lnartial  velocity  ocmponar.ta  u,  v,  w, 
p,  q,  r  -  referred  to  overall  vehicle  axe a 


Tbo  ccmoonent  v  la  given  and  requires  no  aoro 
consideration.  F ifurt  9  shows  seat  of  tha  basic  notation 
required  to  calculate  u  and  v  from  the  given  information. 

The  total  inertial  velocity  vector  of  tha  aircraft  reference 
axes  in  apace  is  shown  as  f  v  3 


Figure  9*  velocity  Resolution. 


The  horizontal  plana  can  be  defined  as  a  plana  normal  to  the 
action  of  gravity.  Since  the  nagnitude  of  7  (which  is  V) 
and  ft  are  known  quantities,  the  ground  speed  vu  oan  be  computed 
directly 

Tjj  ■  Vv2"!"?  >  0  (187) 

How  assign  a  "apace"  axis  system  as  shown  in  Figure  9  that 
la,  a  coordinate  system  with  its  z  axis  in  the  direction  of 
gravity,  and  its  xz  plans  containing  the  vector  7.  Three 
Euler  angles,  T,  6  and  6  can  be  used  to  rotate  these  space 
axes  to  aircraft  axes.  The  only  unknown  of  these  luler  rotations 
is  1,  since  6  and  •  are  given.  Refsrenos  9  shows  the  equations 
required  to  express  the  aircraft's  velocity,  7,  in  spatial 
coordinates,  in  terms  of  the  velocity  expressed  in  aircraft 
axes  and  the  Euler  angles  f,  6  and  ••  Expressed  In  matrix 
form,  these  equations  are 


sinf sihBcosT •oosdsinf !  cosOsiriBcosT+sintsinfl/  \ 

1/ 


sin$sln6slnf+eosdcosf 

sinfeosS 


oostsidBslnf-sintoosV  I 
costcosB 
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Bq ,( 188 )  ho Mn  for  any  apace  axle  system  If  lies  wt-nllel  to 
the  action  of  gravity*  For  the  system  of  Pleura  1,  the  spatial 
velocity  components  of  the  aircraft  velocity  vector  V  are 


dx'/dt  -  Vjj  -  Vv2  - 

(189) 

dy'/dt  >  0 

(190) 

dz'/dt  -  -fi 

(191) 

The  Eulerlan  rotational  matrix  of  Eq.  (188)  can  be  inverted 
by  transposition  to  solve  for  u,  v  and  v  in  terms  of  dx'/dt, 
dy'/dt  and  dz'/dt.  The  solution  for  v  achieved  frosi  this  process 

v  «Vv^-li2  |(sinesin6)cosf-(cost)sintJ-(slnico«6)h  (19B) 

Since  v  is  given,  the  only  unknown  in  Eqj(l9e)  is  ♦. 

Before  proceeding  with  the  solu*  *  „«  of  (192),  define  the 
known  quantity,  C: 

C  A  v  ♦  slnacjsSfi  (193j 

Vv2  -  h2 

With  this  definition,  Eq.(l9S)  Is  written  simply  as 

(sln*sinfB)cosY-(cost)sinY  -  C  (194) 

Figure  10 is  a  graphic  display  of  Eq.  (194): 


Figure  10.  Graphic  Display  of  Eq.  194 
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'.vo  vectors  (at  right  angles  to  each  other)  are  given  actual 

lengths  of  coa4  and  sinflsinC  as  shown  in  Figure  10.  Clearly, 

the  vector  c  is  related  to  i,  £  and  4  in  accordance  with  Eq.  (10). 

The  vector  H  is  the  resultant  of  eosG’  and  sin't'eink,  and  is 

defined  positive  at  all  times.  The  expression  for  R  can  be 
written  immediately: 

R  =  ^cos4>2  (sinC>sine)fc  (195) 

From  inspection  of  Figure  10,  one  sees  that  a  value  of  ¥  exists 
that  satisfies  the  diagram  only  if 

] 

R  >  |C|  (196) 

If  condition  196 is  not  met,  the  given  values  of  C>,  £,  v,  V  and  h 
^ which  make  up  R  and  C)  are  impossible.  The  action  taken  by 
VELCTY  in  this  event  will  be  discussed  later.  For  the  time 
being,  assume  that  condition  196  is  fulfilled.  In  this  case, 


two  values  of  ?  will  work  to  satisfy  Figure  10: 

R  cos  [+(*  ♦  n/2  -  0)J  «  C  or 

T  -  P  -  it/2  t  COS-1  (C/R)  (197) 

Since  cos *  and  sin*  are  required,  ( U )  can  be  used  to  get 

cost  *  cos  fp  .  n/2  £cos-1(C/R)]  >  sin  [p  Icos'^C/R)  ]  (198) 

sin*  =  sin  [p  -  n/2  Icos’1 (C/R)]  *  -cos  [p  lcos-1(C/R)]  (199) 

Using  the  trigonometric  relationship 

sin  [cos’Vx  ]  =  t  -  X2  (200) 

expressions  (198)  and  (199)  are  reduced  to  the  form 

cos*  =  !  Vl-(C/R)  cosp  4  (C/R)  sinp  (201) 

sin:  =  -(C/R)  cosp  1-(C/R)^  sinp  (202) 
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Eqs.  (201)  and  (202)  can  be  simplified  by  noting  that 


cos  p  =(cos  $)/R 

(203) 

sin  ^  -(sin  0  sin  6)/R 

(204) 

from  inspection  of  Figure  10.  Substituting 

(203)  and  (204)into 

(201)  and  (202), 

r  1 

/  n  \2  /  r 

\  1/  1 

V 

COS  ¥  =  I  ±  w1 

-  (t)  ooa  ♦ +  (t 

-J  sin  4>  sin  ©  Ip" 

1(205) 

sin  ?  =  [- 

-)  cos  •  +  a/i  - 

|  sin  •  sin  ©1 

)  (206) 

L  \R 

/  -  M  v R  t 

'  Jv R 

/ 

2  2 

The  requirement  that  R  >  C  is  easily  seen  in  Eqs.  (205)  and 

(206). 


The  (+)  sign  on  the  radicals  in  Eqs.  (205) and  (206) 
requires  special  attention  at  this  point.  To  clarify  the 
meaning  of  these  sign  options,  solve  for  u,  v,  w  using  Eq.(l88) 
in  terms  of  dx'/dt  and  dz'/dt.  All  that  is  required  is  the 
transpose  of  the  square  matrix  in(l88) (which  is,  of  course  its 
inverse  since  the  matrix  is  an  Eulerian  rotational  matrix) .  Noting 
that  dy'/dt  =  0  from  (190 ^the  second  column  of  this  transpose 
may  be  omitted.  Using  Eqs.(l89)and  (191)  to  substitute  for 

for  u,  v  and  w  takes  the  matrix 


t  -  sin  0 

T  -  cos  $  sin  'i  |  sin  <t>  cos  © 
V  +  sin  0  cos  'i  1  cos  <J>  cos  0. 


dx'/dt  and  dz'/dt,  the  solutior 
form; 


(:)■[ 


cos  ©  cos  t 
sin  4>  sin  0  cos 
cos  <J>  sin  0  cos 


(207) 
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The  second  equation  in  (207)  yields  the  identity  v  =  v  if 
Eqs.(205)  and  (206)are  substituted  for  cos  ♦  and  sin  ♦, 
verifying  the  correctness  of  Eqs.(205)  and  (206).  To 
grasp  the  meaning  of  the  +  sign  on  the  radical,  observe  the 
first  equation  in  (297)for  u,  and  imagine  a  vehicle  in  level, 
coordinated  flight  (h  =  $=  0=  v*O).  Under  these  conditions, 
C  is  zero  (as  can  be  seen  from  Eq.(l93)  and  R  is  unity 
(from  Eq. (195) •  Solving  for  u  (without  altering  the 
radical  in  Eq.(205), 


u  =  V  cos  ¥  =  V  (+  )  (208) 

If  the  +  sign  is  chosen  on  the  radical,  flight  is  forward, 
corresponding  to  a  +  u.  The  (-)  sign  defines  the  flight  as 
backward,  a  condition  which  is  not  only  possible,  but  important 
for  helicopters.  Thus,  an  option  is  included  in  VELCTY  (by  index) 
to  assign  either  the  (+)  or  (-)  sign  an  the  radicals  in  Eqs. 

(205)  and  (206). 


(+)  — ►  forward  flight 
(-)  — *■  backward  flight 

If  condition  (196)  is  fulfilled,  Eqs.  (205)  and  (206)  can 
be  used  to  determine  cos  Y  and  sin  ¥,  for  substitution  into  (207) 
to  yield  u  and  w.  If  condition  (196)  is  not  met,  the  given 
quantities  are  incompatible.  In  this  case,  VELCTY  fails  to  use 
the  given  sideslip  velocity,  v,  and  calculates  a  new  value  from 
Eq.  (207).  The  value  of  v  is  relatively  arbitrary  at  this 
point.  VELCTY  sets  |c|  =  R  and  calculates  cos  Y  and  sin  T  from 
Eqs.  (205)  and (206)  on  this  basis.  Of  course,  C  can  be  either 
(+)  or  (-)  R,  so  VELCTY  uses  the  forward/backward  index  to  specify 
the  sign  on  C. 


Forward  flight:  C  ■  +R 
Backward  flight:  C  =  -R 

After  cos  V  and  sin  ¥  are  calculated,  u,  v  and  w  can  be  computed 
using  (207).  In  this  case,  v  will  be  different  from  the  given 
value . 

Table  III  is  presented  to  specify  the  action  of  VELCTY  for 
the  contingencies  on  the  sizes  of  R  and  C  (discussed  above), 
and  other  limiting  cases  which  arise. 
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TABLE  III.  OPTIONS  FOR  SUBROUTINE  VELCTY 


Case  No. 

Condition 

VELCTY  Action 

-  ■■ 

I  V  =  0  u  =  v  =  w  0 

II  |6|  =  V  u  =  -  ft  sin  0, 

v  =  ft  sin  4>  cos  0 
w  =  ft  cos  4*  cos  0 

III  |  C  |  <R  Calculate  sin  Y  and  cos  Y 

from  aquations  (18)  and 

(19)  >  and  u,  v  and  w  from 

(20) .  v  will  be  the  same 
as  the  given  value  in  this 
case  -  providing  a  check 
on  the  VELCTY  computation. 

IV  |  C j  >  R  Set  C  =  +  R  if  flight  - 

forward, C  =  -  R  if  flight 
backward.  Compute  sin 
and  cos  f  from  (18)  and 
(19),  and  solve  for  u,  v 
and  w  from  (20) . 
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Rotational  velocities  p,  q  and  r  are  now  determined 


Sometimes  p  and  q  are  specified  before  VELCTY  is  called. 

I  r  0  and  $  are  specified  in  lieu  of  either  p  or  q,  the  following 
formulas  are  used  (taken  directly  from  Reference  9): 

p  =  i  -  ¥  sin©  (209^ 

q  -  Q  cob$>  +  ¥  cos©  sin*  (210) 

The  yawing  rate,  r,  is  obtained  directly  from  given 
information  by  slightly  rearranging  an  equation  of  Reference  9. 

r  =  ($  cos$>  -  q  sin$)  secO  (211) 
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II. 7  REQUIRED  TRIM  LOADS  (Subroutine 


•aL*4;M 


± 


Eq.  (14)  of  Part  Z  expresses  the  functional 

relationship  between  the  required  trim  force -moment  column,  r,  and 
the  trim  variables  and  constraints: 

r  =  r(t,  problem  constraints,  constants)  (212) 


The  elements  of  r  are  the  three  force  and  three  moment 
components  of  the  required  trim  aerodynamic  load.  These  load 
components  are  taken  at  the  overall  vehicle  reference  point,  and 
are  referred  to  vehicle  axes,  r  can  be  determined  from  items  a-e 
listed  in  the  VELCTY  section  of  this  report.  The  notation  of 
Reference  9  was  used  in  the  VELCTY  section,  and  will  also  be  used 
here. 


Before  r  can  be  determined,  s  must  be  known.  Thus, 
VELCTY  must  be  called  before  FCERQD  may  be  called,  for  a  given 
set  of  trim  requirements. 

Consider  a  center  of  gravity  (eg)  coordinate  system 
which  is  parallel  to  the  vehicle  axes  but  whose  origin  lies  at 
the  vehicle  eg.  A  G  matrix  can  be  defined  (see  the  Vehicle 
Geometry  section)  which  can  be  used  to  determine  the  inertial 
velocity  components  of  the  eg. 


(213) 


Eq.  (2)  can  be  expanded  into  component  form.  The 
resulting  component  equations  are  analogous  to  Eqs.  (6)  -  (31) 
in  the  Vehicle  Geometry  section: 


u 


eg 


=  u+qz  -ry 

H  eg  *cg 


r  =v+rx  -pz 
eg  eg  *  eg 


w  =  w  +  p  y  -qx 
eg  Jcg  eg 

P  -  P 
*cg 

q  =  q 
eg 

r  6  =  r 
rcg 

(Note  that  the  r  used  in  symbolic  Eq.  (1)  has  no  connection  with 
the  r  yawing  rate). 


(214) 

(215) 

(216) 

(217) 

(218) 
(219) 


The  equations  of  motion  for  a  rigid-body  flight  vehicle 
are  derived  in  Reference  9.  These  equations  refer  to  a  body  axis 
system  located  at  the  aircraft's  eg.  Part  I  describes  the 
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definition  of  trim  used  fn  MOGfAB:  •  •  0.  Thus,  for  trim, 

"eg  3  vog  “  wcg  "  pc*  “  ^  "  rog  "  °*  rigid  ***  •<*uatlooi» 
constrained  by  the  trim  definition  used  in  M06TAB,  can  be  written 


xcg  • M  ♦  T  (>*  *0g  -  r0g  r0*] 

(220) 

Ycg  ■  *  w  00,9  ,l0*  +  T  [ro*  u0*  -  pcg  weg  1 

(221) 

Zcg  -  *  *  ♦  -jj-  [»„,  %  *  %] 

(222) 

Lcg  "  qcg  hscg  "  rcg  hycg 

(223) 

M  »  r  h  -  p  h 

eg  cg  xcg  ‘'eg  cog 

(224) 

Ncg  "  pcg  hycg  "  qcg  hxcg 

(225) 

^xcg  ■  Ixx  pcg  "  1xy  ^cg  "  Xxx  rcg 

(226) 

hycg  “  "  Xyx  pc«  +  Xyy  *og  "  Xys  rcg 

(227) 

hscg  “  "  Isx  pcg  “  Tsy  ^cg  +  Iss  rcg 

(228) 

Eq3.  (220)- (228)  define  the  required  force  and  moment 
expressions  for  vehicle  trlmned  conditions.  These  required 
trim  loads  are  referred  to  an  axis  system  fixed  to  the  aircraft, 
with  origin  at  the  center  of  gravity.  MOB  TAB  needs  the  loads 
required  for  trim  to  be  expressed  with  respect  to  vehicle  axes 
(recall  that  "vehicle  axes”  are  fixed  to  the  aircraft  "in  a 
convenient  position"  generally  not  the  eg).  The  loads  ex¬ 
pressed  by  Eqs.  (220)-(225)  are  easily  translated  to  vehicle 
reference  axes. 

Define  d  as  a  vector  locating  the  eg  with  resptect  to 
the  origin  of  the  vehicle  axes.  In  component  form, 

d  ■  1  x  +  $y  +  k  *  expressed  in  vehicle 

cg  cg  cg  axis  system  coordinates 

(229) 
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Ltt  F  and  P  b«  the  required  force  and  moment  vectors 
at  the  eg.  Component!  of  F  are  given  by  Eqs. (220)  -  (222), 
and  components  of  r  are  givVn  by  Eqs.  (2*3)  -  (22$).  now 
let  F  and  P  be  the  loads  required  at  the  origin  of  the  vehicle 
axes,  which  produce  the  equivalent  loeding  system  v  end  r  • 
Clearly,  B 


-  F 

(230) 

rcg 

■  r  -  d  x  f 

(231) 

8olving(230)  and (231)  for  F  and  r. 

F  . 

(23 2) 

P  - 

r__  ♦  d  x  f 

eg  eg 

(233) 

Eqs. (232)  and  (233) are  expanded  in  component  form 

below: 

X  - 

(23**) 

Y  - 

Yec 

(235) 

Z  - 

eg 

(236) 

L  ■ 

L  +  y  Z  -  z  Y 
eg  'eg  eg  eg  eg 

(237) 

M  - 

Meg  +  *cg  Xcg  "  xcg  Zcg 

(238) 

K  - 

"eg  +  xcg  Ycg  "  ycg  Xcg 

(239) 

Eqs.  (234)-  (239)  express  the  component!;  of  the  trim- 
force  column  (Eq.212).  The  set  of  Eqs.  (214)  -  (219)  -  (220)  - 
(228)and(234)-(239)are  those  presently  mechanized  in  FCERQD, 

These  expressions  suffice  to  define  the  functional  relationship^ ). 


05 


II.  8 


f*  i  t  ■* 


al  matrix  ommm  tumounm 


A*  Subroutine  TOUR 

Reference  )  documents  the  standard  Eulerian  coordinate 
oyntem  transformation.  The  method  lu  presented  here  without 
derivation,  since  it  is  a  very  standard  prooedure. 

Given  a  vector  V  expressed  in  coordinates  of  some  orthogonal 
axle  system  a, 


¥  J  v  ♦  k  v 
Jn  ya  a  sa 


(2140) 


It  is  necessary  to  express  V  in  the  coordinates  of  axis  system  b. 


v  -  *b  'xb  *  4b  vyb  *  “b  vxb 


(3)1  > 


Three  angles,  <5.  .<?.  exist  such  that  the  components  of  V 
in  t  coordinates  can  be  calculated  as  functions  or  the  'a* 
coordinates.  In  matrix  form,  this  relationship  Is  expressed: 


The  quantities  (R(<)>  R(  ),  and  R(i))  are  >  x  j  arrays  called  rota¬ 
tional  matrices.  These  arrays  are  defined  as  follows: 


cos. 

sin: 

0 

R(.) 

-sin. 

cos: 

0 

(21*3) 

L  0 

0 

l 

cos 

0 

-sin" 

R(  ) 

0 

1 

0 

(241s ) 

1  sin 

0 

cos 

« 

l 

0 

0 

R(t )  - 

0 

co*5 

sim- 

(245) 

.  o 

-sinrp 

cost- . 

8o 


TJ»  order  of  rotation  Is  rolovant,  meaning  tlwt  tlic  orlcr 
of  multi plication  in  Kq*  (d42)  is  relevant*  An  Important 
property  of  an  Eulerlan  rotational  matrix  it  that  it*  invoroe  lc 
•quad  to  its  transpose.  Another  Inport  ant  property  is  tnat  its 
transpose  is  equal  to  the  un transposed  matrix  with  the  sim  of 
the  angle  clanged.  To  show  these  important  properties  in  mathe¬ 
matical  form*  refer  back  to  the  arbitrary  vector  V.  Denote  the 
matrix  column  made  up  of  the  elements  of  V  expressed  in  co¬ 
ordinates  a  as  V  •  V  expressed  at  a  column  in  b  coordinator  in 
denoted  aa  V^.  with  this  notation*  (242)  een  be  written 


Vb  -  R(l»)  R(0)  R(’v)  Va  (246) 

.  Premultiplying  (247 Hhrough  consecutively  by  R“ 1  ^  , 

R*  (*),  ir'(i)  and  transposing , 

Va  •  R"1(v)R“1(0)R"1((p)Vb  (247) 

The  properties  of  rotational  matrices  discussed  above 
allow (247 Ho  be  written  in  two  other  forms: 

V.  *  RT(t)RT(u)RT(9)V.  and  (248) 

ft  D 

Vft  -  R<-*)R(-u)R<-q>)Vb  (249) 


Subroutine  EUIER  performs  operations  (246)  or  (249),  as 
specified  by  an  option  index.  An  additional  option  can  be 
exercised  in  EUIZR.  Computing  sine  and  cosine  functions 
digitally  as  required  in  Eqs.  (243),  (244),  (24?)  is  • 
relatively  time -consuming  process.  If  the  Euler  angle  (e.g. ,  \) 
used  to  assemble  the  rotational  matrix  is  small*  the  following 
trigonometric  approximations  are  accurate: 


siny  ?  v 

(250) 

cos,  *  i  -  \/c  ; 

(251) 

Py  option.  Euler  uses  Eqs. (250)  and  (251) to  generate 
sine  and  cosine  functions,  instead  of  using  the  computer  library 
trigonometric  functions. 


B.  Standard  Matrix  lubroutinss 


The  lilt  below  chow*  the  general  matrix  subroutines  (other 
than  EU1£R)  presently  incorporated  in  MOSTAB.  These  subroutines 
are  so  general  in  purpose  that  no  further  explanation  is  required. 
The  input/output  formats  are  described,  by  comment,  in  the  FORTRAN 
listings. 

Subroutine  Name  Function 


MATINV 

MTXADD 

MTXMPY 


Matrix  inversion 

Matrix  addition  or  subtraction 

Matrix  multiplication 


11,9  STABILITY  DPIVATIVI  MATRIX  MMOLUTICB 


The  stability  derivative  expression  is  given  by  Eq.  (10) 
of  Part  X, 

Ap  <=  P  As  +  P«  As  +  P  Ac  (252) 

BBC 

The  column  Ap  is  the  perturbation  load  column  expressed  in  overall 
vehicle  coordinates.  As  is  the t perturbation  column  in  vehicle 
inertial  velocity  components.  As  is  the  time  derivative  of  As. 

Ac  is  the  control  perturbation  column.  Note  that  Ap  represents 
loads  applied  at  the  overall  vehicle  reference  point,  and  As  and 
As  represent  inertial  velocity  and  acceleration  of  this  reference 
point. 


The  position  of  the  eg  (with  respect  to  the  overall  vehicle 
coordinate  system)  is  defined  by  three  input  dimensions:  x 
y  ,  zc  .  Define  a  eg  coordinate  system  parallel  to  vehicle 

cc&rdinftes  but  with  its  origin  at  the  eg.  One  can  say  that  the 
vehicle  asix  system  origin  is  located  with  respect  to  eg  axes  by 
coordinates  -xcg,  -yCg,  -zcg,  in  eg  coordinates.  In  the  Geometry 
section  of  this  appendix,  a  matrix,  Gj.,  was  defined 
which  can  be  used  to  relate  motions  of  the  vehicle  axes  knowing 
eg  motions: 


°cg?-V-ycg’-lcg),cg 


A  matrix  L.  was  also  defined  in  the  Geometry  section 
which  can  be  used  to  calculate  the  effective  loading  system 
at  one  point  of  the  vehicle,  knowing  the  loads  at  another 
point.  The  matrix  is  used  in  the  following  equation  to 
determine  eg  loads  knowing  overall  vehicle  reference  point 
loads . 


(253) 


>  -y 


eg* 


)p 


(254) 


It  was  shown  in  the  Geometry  portion  of  this  appendix  that 


L 

eg 


(255) 


Eqs.  (253),(254),and(255)  can  be  used  to  eliminate  Ap,  As, 
and  ^  from  Eq.  (252).  The  result  is 
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[g  T  P  G  ]  As  +  [g  T  P*  G  Tas 
L  eg  s  cgj  eg  L  eg  s  ucg  r° 


(256) 


Ap 


eg 


4* 


] 


Ae 


The  equation  for  G  is  taken  directly  from  the  Geometry  portion 

of  this  Part  II  with  the  substitutions  x.  =  -  x  ,  y.  *  -  y  ,  z. 
_  _  2  i  eg  Ji  Jcg  i 

eg* 


p  •  ■ . 

,+yc6  " 

’  7j 

-  pi 

i 

.! 

+zcg 

-y=s 

,1 

xcg 

"Xcg 

unlabelled  ele¬ 
ments  are  zero 

' 

1  ^ 

L. 

(257) 


Stability  axes  (sa)  are  defined  as  follows: 

a)  The  origin  of  the  stability  axis  system  lies  at  the 
aircraft's  eg. 

b)  The  cg's  inertial  velocity  components  along  the 

y  and  z  axes  are  zero, 
sa  sa 

These  two  requirements  on  the  position  of  the  stability  axis  system 
still  do  not  completely  define  the  position cf  the  axes.  Once  xga 
points  in  the  direction  of  the  aircraft  cg's  inertial  velocity 
vector,  the  stability  axes  can  be  rotated  about  xga  to  an  infinite 
number  of  different  orientations  on  the  airplane,  without  violating 
either  of  the  constraints  (a)  or  (b).  The  problem  seldom  arises  on 
fixed-wing  airplanes  that  are  usually  trimmed  with  zero  sideslip 
angle.  In  this  case,  the  stability  axes  are  usually  removed  from 
the  usual  vehicle  reference  axes  by  a  Eulerian  pitch  angle  (rotation 
about  y  only) , 

SO, 
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A  third  constraint  is  added  to  the  definition  of  the 
stability  axes  here,  to  uniquely  define  their  position.  This 
constraint  is  arbitrary,  but  seems  to  be  along  the  lines  usually 
taken  in  stability  analyses. 

(c)  The  z  lies  in  the  eg  axis  system's  x  -  z 

plane ,  & 

The  x  -  z  plane  of  the  eg  axis  system  usually  lies 

parallel  to  a6planegof  symmetry  of  the  aircraft.  In  this  case, 
Constraint  (c)  above,  requires  the  zg&  axis  to  be  parallel  to  the 
aircraft's  plane  of  symmetry. 

The  inertial  velocity  components  of  the  vehicle,  expressed 
in  eg  coordinates,  must  be  known  before  the  cg-to-stability 
axes  transformation  matrix  can  be  derived.  (This  fact  will  be 
seen  later,  when  this  transformation  process  is  developed).  Since 
the  eg  is  do  lined  with  respect  to  overall  vehicle  axes  by  co¬ 
ordinates  x  ,  y  ,  z  ,  the  matrix  G.  (derived  in  the  Geometry 
section  of  £$is  ?fpor?f  can  be  used  directly  to  define  the  vehicles 
inertial  velocity  components. 


z  )s 
eg' 


(258) 


Note  that 


G 

eg 


cg^“Xcg,”ycg,’zcg^ 


(259) 


This  fact  is  substantiated  by  observing  Eqs.  (253)  and  ^258). 
Direct  multiplication  of  G  with  G"1  also  proves  this  result 
by  yielding  the  unit  matri^f  g 

Since  only  the  translational  inertial  velocity  components 
(in  eg  coordinates)  are  required  for  the  subsequent  analysis, 
only  the  first  three  rows  of  (258)  need  to  be  expanded. 


u  -  u+z  q-y  r 
eg  cg^  17  eg 


v  "V+xr-zp 
eg  eg  eg* 


w  -w+yp-xq 


eg 


eg*"  eg 


Eqs.  (260)-(262)  are  repeat  expressions  of  Eqs . (2l4)-(2l6)in  the 
subroutine  FCERQD  section. 


(260) 

(261) 

(262) 
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Since  subroutine  VELCTY  calculates  s  (and  ultimately 
produces  the  value  of  s  which  fulfills  the  trim  condition), 
u  , v  and  w  can  be  computed  directly,  using  Eqs,  (260)-(262). 


Eulerian  rotational  matrices  were  discussed  in  the  sub¬ 
routine  EULER  section.  The  transformation  matrix  required  to 
rotate  vectors  from  eg  axes  to  stability  axes  can  be  assembled 
using  R(\|f)  and  R(e)  rotations.  Normally,  the  t  rotation  is  done 
first,  followed  by  the  R(e)  rotation.  The  process  is  reversed 
here.  Reversing  the  order  of  rotation  insures  that  the  z  axis 
will  remain  in  the  x  *z  plane  of  the  eg  coordinate  System  . 
The  angles  \jr  and  0  are  cnosen  to  fulfill  the  requirement  that 
the  cg's  inertial  velocity  components  along  the  y  and  z 
axes  vanish.  sa  sa 

The  components  of  cg's  inertial  translational  velocity 
(in  eg  coordinates  have  been  denoted  uCg,vCg,wCg.  When  rotated 
to  stability  axes,  the  y  and  z  components  or  the  inertial 
velocity  vanish.  The  x  ®acomponfiftt  thus  becomes  the  inertial 
speed  of  the  vehicle's  eg.  Mathematically,  this  situation  is 
stated  as  follows: 


Inverting  and  transposing  (263)  is  easily  accomplished, 
noting  the  characteristics  of  Eulerian  rotational  matrices 
outlined  in  the  section  on  subroutine  EUIER. 
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Eq.  (264)  is  easily  expanded  to  solve  for  ucg>  v  ,  and  wcg 

in  terms  of  0,  t>and  V  : 

eg 


lCg 

S  COS0  cost  V 

eg 

(265) 

eg 

-  Sint  v 

eg 

(266) 

f 

=  -  sinO  cost  V 

(267) 

eg  eg 

Eqs.  (265)- (267)  are  three  expressions  in  the  three 
unknowns  ty,Q,V  .  Of  course,  ue_  v  .  w  are  known  (they  are 
computed  using  SEqs.  (260)  -  (2o2).  CS 

Eq.  (266)  gives  the  simple  result 

sint  =  -y22-  (268) 

eg 

Simple  trigonometric  manipu1  ation  of  (268)  results  in  the 
expression 


cost 


(269) 


Combining  Eqs.  (265)  and  (269), 


COS0 


Eqs.  (267)  and  (269)  combine  co  yield 


(270) 


sin0 


(271) 
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If  Eqs.(270)  and(27l)  are  squared  and  added,  the 
following  result  is  obtained: 


,,  2  2  2  2 

V  =  u  +  v  +  w 
eg  eg  eg  eg 


(272) 


This,  of  course,  is  the  requirement  that  must  be  met,  by- 
definition  of  VCg.  Eqs.(268)  -  (272)can  be  substituted  into 
Eq.  (12).  The  product  of  the  ♦  and  0  Eulerian  matrices  is 
the  required  cg-to-stability  axes  transformation.  Denote  this 
transformation  as  R: 


(vector  expressed  \  /vector  expressed  \ 

in  stability  axisl  =R  I  in  eg  coordinates  1  (273) 

coordinates  /  \  / 

R  is  given  in  terms  of  u  ,  v  ,  and  w  by  the  following  operation. 

The  array  shown  was  generatedoy  multiplying  the  Eulerian  matrices 
RU)R(e),  and  substituting  expressions  (268)  -  (271)  for  the  trigonomet¬ 
ric  elements  that  result. 


(the  subscript  eg  has  been  omitted  from  symbols  within 
the  matrix  for  simplicity  in  notation) 


V  is  given  by (272).  Ilote  that  R  becomes  indeterminate  if  V  -►0. 

eg  eg 

This  is  to  be  expected,  since  stability  axes  are  undefined  when  the 
aircraft  eg  has  no  inertial  speed.  Note  also  that  the  division 

|| V  “  -  v  -  can  never  be  zero  (except  in  the  indeterminate  case 
1  eg  eg 

when  V  0) . 
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The  matrix  R  is  used  to  rotate  three-element  columns 
(vectors)  from  eg  to  stability  axes.  In  order  to  facilitate 
the  resolution  of  Ape  and  A sCg  (which  are  six-element  columns 
made  up  of  three-element  subcolumns),  define  the  expanded 
rotational  matrix  R. 


R  = 


(275) 


Eq. (256)  can  be  premultiplied  by  R  to  yield  an 

expression  for  overall  vehicle  loading  in  stability  axis  system 

coordinates.  Also,  since  R-1R  =  R^R  =  the  unit  matrix,  the 

product  RtR  can  be  inserted  into  (256)  just  in  front  of  columns 

As  and  A£  . 
eg  eg 


APga  -  R  ,G 


eg 


P  G. 


eg 


1 


T 

R  As 


sa 


+  R  G 


[' 


eg 


AS 


sa 


+  R  [ccgT  Pc  "’aC  (276) 

Eq.  (276)  derives  from(256)  in  this  manner  because 


^®sa 

=  R 

eg 

(277) 

As 

sa 

=  R  As  ,  and 
eg 

(278) 

A*sa 

=  R  Ap 

eg 

(279) 

To  simplify  the  notation,  define  the  6x6  matrix  X: 

X  -  R  GcgT  (280) 

Noting  that  X^  =  G  R^,  Eq.  (276) is  written 

eg 

A*S=  *  [XPSxT]^sa  +  [xpJxT]^Sa 

+  [x  Pc]ac  (281) 
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The  matrices  in  brackets  in  Eq. (28l)  are  the  stability 
derivative  arrays  with  respect  to  stability  axes.  Eqs.  (25l),  (257) 
(260)  -  (262),  (274),  (275)»  (200),  and  (28l)  are  programmed  in  M06TAB, 
so  that  the  stability  derivative  arrays  can  be  expressed  with 
respect  to  aircraft  axes,  eg  axes  and  stability  axes. 

The  R  transformation  (Eq.274)  can  be  used  to  convert  the 
vehicle  inertia  tensor,  I,  expressed  in  overall  vehicle  coordinates, 
to  the  inertia  tensor  expressed  in  stability  axes. 


I,.  -  R  IRT  (282) 

Set 

where  r  *i 


A  I 

-I 

-1 

A  -XX 

*  -I 

-ixz 

yx 

yy 

zz 

-I 

-1 

I 

zx 

L 

zy 

zz 

Eq.  (282)  is  derived  using  arguments  identical  to  those 
used  in  deriving  (276). 
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XXX.  ROTOR  ANALYSIS 


m.l  INTRODUCTION 


The  rotor  analysis  is  presented  in  this  part  in 
relatively  general  form.  The  simplified  version  or  the  analysis 
presently  used  in  M08TAB  is  assembled  in  the  main  body  of  this 
work,  referring  to  the  general  analysis  given  here  for  the 
basic  equations.  If  it  becomes  necessary  to  remove  some 
of  the  present  M06TAB  simplifications,  the  equations  developed 
here  can  be  used  to  add  the  desired  effects  with  no  substantial 
amount  of  additional  analytic  work. 

Rotor  types  which  do  not  couple  loads  among  the  blades 
(except  through  rotor  shaft  motion  and  aerodynamic  interference) 
are  addressed  in  this  pert.  Teetering  rotors  (floating  hub 
rotors)  and  rotors  with  independently  articulated  blades  with 
coupling  links  or  cables  do  not  generally  fall  into  this  category, 
because  these  rotors  couple  loads  among  the  blades  without  first 
applying  such  loads  to  the  shaft.  To  account  for  such  coupling, 
certain  terms  must  be  added  to  the  blade  motion  equations.  No 
difficulty  in  extending  the  present  analysis  to  include  direct 
load  coupling  is  anticipated.  Usually,  load-coupled  rotors  can 
be  approximated  with  Independently  articulated  rotor  models  for 
vehicle  handling  quality,  and  stability  examinations.  The 
coupling  among  blades  influences  vibration  levels,  blade  stresses, 
etc.,  but  usually  has  negligible  effect  on  aircraft  handling 
characteristics. 

IU.2  AXir  SYSTEM  DEFINITION 


The  reference  point  for  all  rotors  lies  at  the  inter¬ 
section  of  the  shaft  centerline  and  the  unflexed  blades'  quarter  chord 
line  (see  Part  I  for  definition  of  "reference  points".  If 
such  a  point  is  undefined  because  of  curved  blades  or  some  other 
geometric  difficulty,  the  point  lies  at  a  convenient  point  in 
the  rotor  hub,  on  the  shaft  centerline. 

The  rotor’s  local  axis  system  is  fixed  to  the  nonrotating 
airframe  with  its  z  axis  coincident  with  the  rotor  shaft  center- 
line  and  its  origin  at  the  rotor's  reference  point.  The  azimuthal 
position  of  this  system  is  defined  (with  respect  to  the  nonrotating 
airframe)  in  any  convenient  manner.  Constant  Euler  angles  ^r,e  ,cpr 
are  defined  which  locate  these  local  rotor  hub  axes  with  respect  to 
overall  vehicle  reference  axes.  This  local  axis  system  will  hence¬ 
forth  be  referred  to  as  the  rotor's  "hub  axes." 

Now  define  the  "rotor  axes"  as  a  system  that  rotates 
with  the  rotor  hub.  Then  the  rotor  axes  have  an  angular  speed  n 
with  respect  to  the  hub  axes.  The  z  axis  of  the  rotor  axes  lies 
coincident  with  the  z  hub  axis,  and  the  origins  of  the  two 
systems  are  coincident.  Define  if  as  the  azimuthal  angle 
between  the  rotor  and  hub  axes.  ,  When 4?  =0,  the  rotor  and  hub  axes 
are  coincident.  Clearly,  when  n=0, 

if  -  nt  +  i/0 
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(283) 


For  moat  U.  3. -built  helicopter.':,  the  aximuthal 

angle  implies  a  negative  Euler  azJjnuthal  (*  axis) 
rotation.  Care  must  be  exercised  to  define  the  si/:n  of  fi 
correctly  when  using  MOBTAB  on  a  given  rotor.  A  single  vehicle 
may  have  rotors  which  have  not  only  varying  values  of  0  ,  but 
varying  signs  as  well. 

Figure  11  shows  a  conventional  helicopter,  with  the  "hub" 
and  "rotor"  axes  illustrated  as  they  apply  to  the  main  rotor.  A 
similar  pair  of  axes  apply  to  the  tail  rotor,  but  these  are  not 
shown  by  Figure  11*  Note  that  the  equation  for  \|  above  includes 
an  "initial"  constant,  Y0»  V©  is  chosen  so  that  the  shaft  normal 
plane  projection  of  rotor  blade  number  1  lies  along  the  -x 
rotor  axis.  With  this  definition  of  V© ,  the  azimut'  al  angle  H' 
used  here  is  the  conventional  angle  used  in  most  classical  rotor 
analyses  (particularly  the  bulk  of  the  work  published  by  NACA). 

in, 3  BLAia  kptopce  ini 

Define  a  blade  reference  line  (BKL)  along  the  span  of 
blade  number  1.  This  reference  line  is  attached  to  the  mass 
molecules  of  the  structure.  Its  exact  position  on  the  blade  is 
arbitrary,  but  the  quarter  chord  line  is  probably  the  most 
convenient  choice. 

Figure  12  shows  the  BRL  and  the  "rotor  axes."  The 
reference  line  intersects  the  rotor  axis  system  origin.  In  the 
analysis  that  follows,  the  BRL  is  assumed  to  be  infinitely  stiff 
in  tension  (it  cannot  stretch). 

The  coordinate,  s,  defines  some  point,  P,  on  the  BRL. 
Regardless  of  the  shape  of  the  BRL,  s  defines  a  particular  mass 
element  of  the  blade.  Thus,  s  is  a  measurement  of  the  length 
of  the  BRL  segment  between  P  and  the  rotor  axis  system  origin, 
s  is  constant  for  a  given  P  because  of  the  assumption  that  the 
BRL  cannot  stretch. 


When  the  BRL  is  deformed,  it  generally  will  have  co¬ 
ordinates  x(s),  y(s),  z(s)  which  define  its  shape  in  rotor  co¬ 
ordinates.  With  the  assumption  that  the  line  does  not  stretch, 
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however,  the  coordinate  x(s)  can  be  expressed  as  a  function  of 
s,  y(s)  and  z(s) • 


Distributed  loading  functions  are  applied  to  the  BKL  from 
two  sources : 

(a)  "Apparent"  loading  due  to  acceleration  of 
the  blade  mass  in  inertial  space  (which  can 
include  gravity  forces  if  desired) 

(b)  Aerodynamic  loading. 


This  loading  picture  can  be  expressed  as  a  distributed 
force  vector,  F  ,  expressed  in  rotor  coordinates: 

F(s,t)=i^pxi(s,t)+pxa(s,t)J+^  ^Pyi(a,t)+pya(s,t)J+&|pzi(s,t)+pza(s,t)J 

The  distributed  loading  function  expressed  above  can  be 
integrated  with  respect  to  s  from  blade  root  to  tip,  resulting 
in  a  time  varying  expression  for  rotor  shaft  forces^due  to  one 
blade.  Integrating  rxF  produces  the  shaft  moments.  These 
integrations  are  considered  in  detail  in  a  later  section  of  this 
appendix. 


The  inertial  analysis  presented  here  is  required  to 
generate  expressions  for  the  "apparent"  inertial  loading  of  a 
rotor  blade  as  it  accelerates  in  inertial  space.  The  results 
of  the  analysis  will  be  expressions  for  the  distributed  loading 
functions  denoted  pxi,  p  pzi«  These  loading  components  are 
expressed  in  rotor  coordinates. 


Consider  Figure  12  viiich  shows  a  portion  of  blade  ds  long, 
at  the  point  s  on  the  BRL.  The  mass  of  this  piece  of  blade  is 
given  by  the  expression 


dM  =  m(s)  ds 


(284) 


where  m(s)  is  the  blade  mass  distribution. 

Figure  13  shows  clM  with  associated  vectors  to  be  used  for 
the  subsequent  inertial  analysis.  The  rotor  axes  are  shown  as 
they  relate  to  the  "hub"  axes.  As  discussed  in  the  main  body  of 
this  report,  the  hub  axis  system  is  defined  with  its  origin  co¬ 
incident  with  the  rotor  system  origin  and  its  axis  coincident 
with  the  z  rotor  axis.  Generally,  the  hub  axes  will  be  fixed 
rigidly  to  a  flight  vehicle.  As  far  as  the  present  problem  is 
concerned,  however,  the  hub  axes  are  defined  as  above,  with  the 
further  stipulation  that  the  motion  of  x^,  y^,  zh  in  space  is 

*  The  position  vector  r  is  defined  in  rotor  coordinates  as 

r  =  £  x  +  Jy  +  kz 
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Figure  13.  Vectors  for  Inertial  Analyses. 


given,  and  that  the  angle  \jr  (in  Figure  13)  is  defined  as  a 
function  of  time. 

The  vector,  Cl,  in  Figure  13  is  the  rotor  speed,  and  is 

defined 

^  *  *  k  -3$“-  "  *h  -fir  (285) 

where  i,  3,  &  are  rotor  axis  system  unit  vectors  and  $h, 
k^  are  hub  axis  system  unit  vectors. 

Newton's  second  law  expresses  the  force  on  dM  as 

-  ®(4r-)  (286) 

where  the  asterisk  on  the  differentiation  symbol  indicates 
differentiation  in  the  inertial  axis  system.  From  inspection  of 
Figure  13»  Eq.  (286)  becomes 


dF  =  dM  [  +  LJ*.  )  (287) 

\dt*  du  / 

d#  % 

The  quantity  — s —  is  assumed  a  known  function  to  this  problem, 
dt 

It  will  be  available  in  components  gx,  g^,  gz  in  hub  axis  coordinates 

(Xjj,  yh,  and  zh  in  Figure  13).  The  zh  rotation  between  the  hub  and 

"r  or  axes  is  -ty.  Then  the  components  of  d  p ■  in  rotor  axes, 

dt 

from  inspection  of  Figure  13,  are 
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*4  . 


ci  *~R 

— 3—  =  i  (g  cos\j/  -  g  sin\ir)  +  $  (g  sini)/  +  y  cosilO  +  kg  (288) 

dt  x  y  x  y  z 


The  Coriolis  theorem  is  derived  in  most  works  on  classical 
mechanics  (e.g.  Reference  4).  Written  as  applicable  to 

Figure  13,  this  theorem  becomes 

d  2r  •  •  ,  , 

- p —  =  r  +  di  x  (coxr)  +  2  mx  r  +  m  x  r  (289) 

dt 

where  the  "dot"  denotes  differentiation  with  respect  to  time 
in  rotor  axes.  The  variable,  d>,  is  the  "spin"  rate  of  rotor  axes 
with  respect  to  inertial  axes.  In  conventional  airplane  notation, 
the  spin  rate  of  hub  axes  would  have  components  p,  q,  r.  Since  -k.  ft 
is  the  rotor  spin  rate  with  respect  to  the  hub  axes,  the  spin  raten 
of  the  rotor  axes,  cu,  as  given  by  the  expression 


w  +  $h<l  +  (290) 

The  vector  co  can  be  expressed  in  rotor  system  coordinates  by 
resolution  through  the  angle  Ur.  The  result  is 

a)  =  i  (p  cos\l'  -  q  sint)  +  $  (p  sinty  +  q  costy)  +  it  (r  -  fl)  (291) 

From  Figure  12,  one  sees  that  r  can  be  expressed  in  rotor 
coordinates  as 

r  *  ix  +  jy  +  kz  (292) 

:.qs.  (288) ,  (289),  (291),  and  (292)  can  be  processed  by 
methods  of  erdinar^  vector  calculus  to  produce  an  expanded 
expression  for  d  ^h  in  rotor  coordinates.  Knowing  this 

dt2 

vector  quantity,  the  differential  force  d  F.  of  Eq.(287)  can 
be  determined.  Note  that  dF,  is  the  force  on  blade  mass  dM,  applied 
by  the  blade  structure  in  order  to  produce  d*2!!,  Taking  the 

dt2 

D'  Alembert  approach  of  viewing  mass  accelerations  as  apparent 
forces,  the  force  on  the  blade  structure  applied  by  the  accelera¬ 
ting  blade  mass  is  -dF^  The  components  of  -dF^ytls  are  the 

"inertial"  distributed  load  functions  p^,  p^,  and  pzi«  Expressed 
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in  expanded  form,  these  functions  are 
Pxi(s,t)  =  -  m(s)  jgx  cost  -gy  sint  +  x-x(r-Q) 

+  rz  (p  cost  -  q  sint)-  2y  (r-0)  +  z  (p  sint  +  q  costy) 

-  y  (r-0)+  (p  sint  +  q  cost)  [ii*  y  (p  cos^  -  q  sint) 

-  x  (p  sin^  +  q  cost)]  j  (293) 

Py^(s,t)  =  -m(s)  jgx  sint  +  g^  cost  +  y  -  y  (r-0)  +  rz  (p  sint 

•  •  •  •  • 

+  q  cost)  +  2x(r-0)  -  z  (p  cost  -  q  sint)  +  x(r-O) 

-  (p  cost  -  <1  sint)  [2z  +  y  (p  cost  -  q  sint) 

-  x(p  sint  +  q  cost)lj  (294) 

pzi(s,t)  =  -  m(s)  jgz  +  z  -  x  [(p-2nq)  sint  +  (q  +  2fip)  cost] 

+  rx  (p  cost  -  q  sint)  -2x(p  sint  +  q  cost) 

+  y  [(P  -  2Jiq)  cost  -  (q  +  2Hp)  sintl+  ry  (p  sin  t 

•  O  p  1 

+  q  cost)  +  2y  (p  cost  -  <1  sint)  -  z  (p  +  q  )  j  (295) 
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III.  5 


This  analysis  is  required  to  produce  expressions  for  the 
distributed  aerodynamic  blade  loading  functions  p  ,  p  ,  p  . 
These  distributed  loading  functions  are  vector  co^oneXIs  oPthe 
aerodynamic  loading  referenced  to  rotor  axes. 


The  aerodynamic  loading  at  a  point  on  the  BRL  depends 

upon  the  velocity  of  air  with  respect  to  the  blade  at  that 

point.  To  derive  an  expression  for  this  velocity,  consider 

Figure  13.  Instead  of  space  axes,  envision  the  axis  system 

attached  to  the  air  mass  in  the  vicinity  of  the  rotor  hub.  Then 

the  velocity  of  the  point  s  on  the  BRL,  with  respect  to  the  local 

air  mass,  can  be  expressed  as 

,*  -  ,#  - 
d  h  d  R  d  r 

dt  *  dt  dt 


(296) 


(1  R 

The  quantity  vr — represents  the  translational  airspeed 
of  the  hub  axes  (or  rotor  axes),  and  is  given  to  this  problem. 

If  the  components  of  velocity  of  the  rotor  hub  axes  with  respect 
to  the  local  air  body  are  denoted  u  ,  v  ,  w  ,  then 

^  a  a  cl 

-ft2-  *  5h  “a  +  k  (297) 

Resolving  this  velocity  into  rotor  coordinates, 

L  »  ^  (u»  cost  -  v.  sint)  +  J  (u.  sint  +  v.  cost)  +  £  w 

dt  A  A  A  a  (298) 

The  rotational  airspeed  of  the  hub  axes  is  also  given  to  this 
problem.  Denote  this  airspeed 

‘V  4  PA  qA  +  k  rA  <299) 

Eq.  (299)  resolves  to  rotor  axes  in  exactly  the  same 
way  Eq.  (297)  did,  with  pa,  qa,  ra,  respectively  substituted 
for  u  ,  v  ,  w  .  Noting  that  the  rotational  speed  of  rotor  axes 
with  lespict  $0  hut  axes  is  -xf2,  one  writes  the  rotational  airspeed 
of  the  rotor  a.  es  as 

u>A  =  i  (pA  cost  -  qA  sint)  +  ^  (pa  sint  +  qA  cost)  +  k  (rA”n) 


Classical  works  on  vector  mechanics  (Reference  4)  demonstrate  that 


*  . 
d  v 

dt 


=  r  +  o>A  X  r 


(300) 


where  again,  the  dot  denotes  .differentiation  with  respect  to  time  in 
rotor  axes.  The  quantities  r  and  ax  X  T  are  easily  calculated. 
Combining  the  result  of  this  calculation  with  Eqs.(296)  and  (297) » 


VA  =  =  *  [UA  co8^  ”  VA  sin'*r  +  x  +  z  sin\)/  +  \  cost)-y  (rA-0) 

cos  it1  -  q^  sin 

+  k  fw^  +  z  +  y  (p^  cos\|/  -  qA  sinty)  -x  (p^  aim!/  +  cos>|/)J  (302) 


Eq.  (302)  gives  the  velocity  of  a  point,  s,  on  the  BHL 

(noting  that  s  specifies  x(s),  y(s),  z(s),  z(s),  etc)  with  respect 

to  the  local  air  body. 

Since  airjoads  are  generated  by  an  airfoil  section  at  s, 

j 

the  velocity  must  be  expressed  in  coordinates  directly 

associated  with  the  airfoil  section,  instead  of  rotor  system 
coordinates.  To  do  this,  first  define  the  "blade"  axis  system 
at  s  as  follows: 

(a)  The  origin  of  the  blade  axes  lies  at  s  (point  p 
of  Figure  12) . 

(b)  The  x.  axis  is  tangent  to  the  BRL  at  s,  and  points 
generally  toward  the  rotor  hub. 

(c)  The  y^  axis  lies  parallel  to  the  chord  of  the 
bladesection  at  s. 


+  i 


j  L  A 


sint  +  vA  cost  +  y  +  x 


(rA-ft)  -z  (pA 


Define  three  angles,  v,  t,  Q,  to  represent  the  three  Eulerian 
coordinate  rotations  required  to  rotate  the  rotor  axis  system  to 
a  position  parallel  to  the  blade  system.  Then  a  transformation 
matrix  T  can  be  assembled,  such  that 


(vector  expressed 
in  blade 
coordinates 


=  T  (v,  T,  C) 


(vector  expressed 
in  rotor 
coordinates 


(303) 
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where 


[1_l_  0  J  _0  r cost  I  0  _! - ilnT"  ’  coiv  I  sinv^O* 

0  !  coaC  ■  *inC  I  _0  _  1  1  _*  0  -ainv  ^  cosv  ^  0 

0  UlinC  I  oo*C-  LaioT  I  0  I  cobt.  .0  I  0  I  1. 


COBT 

coav 

_ 1 

COBT  BliJV 

|  -BinT 

■ 

sin(  sinT 

coav 

-cos( 

sinv  1 

sinC 

ainr 

Binv 

•t'COSC  cosv 

IsinC  cost 

_coaC  ainT 

coav 

+ainC 

ainv  1 

cosC 

sinT 

sinv 

-ainC  cosv 

icosC  cost. 

bOk) 

The  angles  v  and  t  as  applied  to  a  rotor  BRL  will  generally 
be  small,  representing  the  blade  flapping  and  hunting  angles 
respectively.  The  angle  C,  will  be  somewhat  larger,  being  approxi¬ 
mately  equal  to  the  blade  feathering  angle  with  respect  to  the  rotor 
shaft  normal  plane.  The  geometric  relationships  among  the  variables 
t,  v  and  Q  in  T,  and  the  blade  reference  line  coordinates  x(s,t), 
y(s,t)  and  z(s,t)  will  be  examined  in  Section  I.  The  remainder  of 
the  aerodynamic  analysis  requires  only  the  definition  of  the  rotor- 
to-blade  axis  system  transformation  Eq.  (303). 

If  u  ,  u  and  u  denote  the  spanwlse,  chordwise  and  normal- 
to-chordwiie  airspeeds  at  the  airfoil  section  at  s,  then  the  T 
transformation  matrix  defined  by  (303)can  be  used  as  follows: 


where  V  A  is  the  airspeed  at  s  in  rotor  coordinates  defined  by 
Eq.  (302). 
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In  general,  the  aerodynamic  forces  on  a  blade  element  will  be 

complicated,  nonlinear  functions  of  u.  and  u  ,  and  functions  of  the 

characteristics  of  the  airfoil  section  “being  Bomsidered.  Here,  say- 

functions  f  and  f  are  available,  such  that 
n  c 

fn  *  fn  <V  VSJ  (306) 

fo  *  fc  (u„>  Vs>  (307) 

where  f  is  the  distributed  aerodynamic  force  normal  to  the  blade 
sectionnchordline  and  f  is  the  distributed  aerodynamic  force  parallel 
to  the  blade  section  chordline. 

Figure  l4  shows  f  ,f  ,u  and  u  with  the  airfoil  section  at  s. 
n  c  n  c 

The  section  can  be  viewed  as  the  facing  end  of  a  blade  element  of 
length  ds.  Such  an  element  develops  the  air  forces  as  shown  by  the 
diagram. 


4* 


Figure  l4.  Aerodynamic  Forces  on  Blade  Element. 


In  the  diagram,  u„  and  uc  depict  the  velocity  components  of  the  air 
with  respect  to  tne  section. 
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The  transformation  matrix  T  can  be  used  to  determine  blade 

aerodynamic  distributed  loading  functions  p  ,  p  and  p„o 

XGL  ya  Za 

in  rotor  coordinates.  Taking  advantage  of  the  fact  that,  since  T 
is  an  Eulerian  transformation  matrix,  T"  =  TT  (T  (inverse)  = 

T  (transpose)), 


(308) 


The  equations  developed  in  this  section  are  sufficient  to 
define  pXft,  py&  and  pz&,  given  *,  uA,  vA,  wA,  pA,  qA,  rA,  x,  y,  z, 

v,  t,  £,  n  and  suitable  aerodynamic  functions  (306)  and  (307). 
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III.  6 


8XM2LZPXES  ABtOKNAMICS 


A  linear  lift  coefficient  function  end  a  simple  parabolic 
drag  polar  can  be  used  in  lieu  of  complex  aero  functions  for  f 
and  f  .  This  simplified  approach  requires  small  angle-of-attack 
approximations . 


Figure  15.  Blade  Element  Aerodynamics  for  Small  Angle-of -Attack. 


The  airfoil  section  of  Figure  15  has  infinitesimal  span  ds.  It 
develops  infinitesimal  forces  dL  and  dD. 

For  small  a, 

a  =  Jr-  (309) 


V 


u_ 


(310) 


Assume  a  linear  lift  curve  slope  a,  and  a  simple  parabolic 
drag  polar: 


The  distributed  lift  and  drag  forces  are 


(311) 

(312) 


(313) 


££ 

2 


(6ouc 


+  6 


iVc 


(314) 


Resolving  these  distributed  forces  to  lie  normal  and  parallel 
to  the  chord  line 

fn  =  -  L’  008  a  -D'  sin  a  *  -  -  ffoVc)  ‘  f  W 

*  *  (f-)[(a  +  6o)  Vo  +  V/]  (315) 

fe)  U  2  -  (^Vb  u  2  +  6  U  U  +  6  U  2) 
\2  J  n  \  2  o  c  Inc  2  n  / 


f  -  L  sin  o.  -D  cos  a  =  a 
c 


-  -a^u2+5u2  +  6.U  U  1 

\  2 1  V  2  In  oc  Inc 


(316) 
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where  the  term 


has  been  neglected 


f 


u 


n 


u 


Eqs.(315)  and(3l6)  provide  functions  of  the  form  ( 306) 

and  (307)  assuming  simplified  models  for  the  aerodynamic  lift 
and  drag  coefficients. 


111.7  TOTAL  LOADS  ON  THE  BRL 


The  total  loading  on  the  blade  comes  from  the  summation  of 
inertial  and  aerodynamic  forces.  The  components  of  this  loading, 
in  rotor  axis  coordinates, 

Px  (»,  »)  *  V  *  PX1  (317) 

?y  <*,  t)  ‘  Pya  ♦  Pyi  (318) 

Pl  t)  «  Pw  4  Pji  (319) 
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III. 8  BLADE  MOTION  EQUATIONS  -  THE  WOBHAL  MODE  METHOD 


The  preceding  sections  of  this  part  show  derivations 
of  the  expressions  for  distributed  loading  on  aerodynamic  rotor 
blades.  If  the  blades  are  rigid  (as  can  usually  be  assumed 
for  most  propellers \  the  BRL  coordinates  in  these 
expressions  are  only  functions  of  s.  Since  the  time  varying 
quality  is  removed  from  these  coordinates  due  to  the  rigid 
blade  constraint,  rotor  geometry  defines  the  functions  x(s), 
y(s),  z(s)  ande(s),  and  no  further  analysis  is  required  to 
determine  these  functions.  In  this  case,  the  distributed  loading 
functions  can  be  defined  as  soon  as  the  aerodynamic  and  inertial 
motions  of  the  rotor  hub -axes  are  known. 

If  the  blades  on  an  aerodynamic  rotor  are  flexible  (as  in 
the  case  of  hinged  blades,  or  so  called  "rigid"  rotors  whose 
blades  deform  elastically  to  a  significant  degree),  the  BRL  co¬ 
ordinates  are  functions  of  time,  as  well  as  the  spatial  coordinate 
s.  Determination  of  these  coordinates  as  functions  of  time  (and, 
of  course,  s)  might  be  called  the  blade  motion  problem. 

References  (3)  and  (5)  show  the  application  of  the  normal 
method  to  the  problem  of  thin  flexible  beams  moving  under  external, 
time  varying  distributed  loading  functions.  Both  references 
address  the  one-dimensional  beam  motion  problem,  but  the  method 
is  readily  extendable  to  the  multidimensional  problem.  Discussion 
of  such  extension  is  deferred  to  a  later  section  of  this  part. 


The  salient  features  of  the  one-dimensional  thin  beam 
motion  problem  are  presented  now,  in  the  notation  of  Reference  5. 
Figure  16  below  shows  the  coordinates 


•y*  Hvtl m  Is  u>  specify  rlmm  the  structural  w4 

iiwrMU  froff  i—  of  tbs  bet*  mi  the  asternal  ftoetlee  p(s,t). 


nr 


If  p(x.t)-0,  the  beam  will  vibrate  if  disturbed  from  res*. 

Many  methods  are  available  for  analyzing  thin  free  vibration 
problem.  The  results  of  these  analyses  show  that  the  beam  hos  an 
infinite  number  of  "normal  modes"  of  vibration,  each  occurring 
at  a  different  frequency.  These  frequency  values  are  usually 
called  the  natural  frequencies  of  vibration,  or  the  eigenvalues 
of  the  flexible  beam  problem.  The  eigenvalues  are  functions  of 
the  beam's  stiffness  distribution  El(x),  mass  d  i  rtrihutioM  rn  'x  K 
and  supports  (simply  supported,  cantilevered,  etc.).  A  function. 

®i(x),  is  associated  with  each  natural  mode  of  vibration.  This 
function  is  called  the  modeshape  or  eigenfunction  of  the  i  'th 
normal  mode  of  vibration.  Tf  the  beam  is  vibrating  in  its  j 'th 
normal  mode  only,  then  the  coordinate  w(x,t)  is  given  as 

w(x,t)  =  K  <J>j(x) sin  (cojt  t  o)  (320) 

where  is  the  eigenvalue  associated  with  the  j'  th  normal  mode, 
and  K  and  0  are  arbitrary  constants  determined  by  the  initial 
disturbance  which  started  the  motion. 


The  normal  mode  method  is  essentially  a  functional 
series  solution  method  for  the  forced  beam.  Hie  coordinate 
w(x,t)  is  expressed  as  a  series  in  the  modeshapes,  and  a.  set  of 
"generalized"  or  "normal"  coordinates: 

n 

w(x,t)  =£  (x)rv(t)  (321) 

i=l  1  1 

In  the  case  of  the  continuous  beam,  n  is  infinite.  The  generalized 
coordinate  ry(t)  specifies  how  much  of  the  i 'th  eigen  function  is 
involved  in  the  shape  of  the  beam  at  time  t.* 


References  3  and  5  show  that  the  eigenfunction*  are 
orthogonal  with  respect  to  the  beam  mass  distribution,  m <x). 
This  very  important  property  is  expressed  by  the  equation 


L 

Jn(x)  ♦1(x)#1(x)dx 

o 


0  when  i  /  ,1 


(322) 


ljhia  condition  of  orthogonality  account?  for 
the  name  normal  as  applied  the  vibration  problem. 


*  Observe  that  Fq.(320)  applies  only  when  the  beam  in  v!b»-n»  far 
in  its  J  *th  nods  with  no  external  din* urban-*-.  K|.(3®1  i • 
the  assumed  functional  series  solution  Tor  th*  beer  a*  it  -over 
enter  any  specified  external  excitation. 


Mow  consider  the  case  when  p(x.t)  3s  nonzero.  \  partial 
differential  equation  can  be  written  in  independent  coordinates  x 
( space)  and  t  (time]l  Trie  functional  series  expression  (320)  is  applied 
to  the  equation  as  a  change  of  coordinates.  Essentially,  the 
normal  coordinates,  r^ft),  are  substituted  l'or  the  distributed 
coordinate  w(x.t).  Using  the  condition  of  orthogonality 
expressed  by  Eq.(322),  the  infinite  number  of  equations  in  the 
infinite  number  of  coordinates  n^(t)  are  decoupled.  The  form  of 
the  decoupled  equations  is 


N 


+  (Ur  ’V  : 

*e  in  ,  and  N  are  the  normal  coordinate,  "generalized 
i"  and  "generalised  force"  (respectively)  associated  with  t 


(323)* 


r  r  =  1,2 . oo 

where 

mass"  and  "generalised  force"  (respectively)  associated  with  the  r'th 
normal  mode.  The  generalized  mass  is  constant,  and  given  by  the 
expression  L 

2 

(x)$r  (x)dx  (324) 


M 


f 

=  J  m 


The  generalized  force  is  given  as 


Nr  =  fQ  $r(x)  p  (x,t)  dx  (325) 

The  normal  mode  method  for  calculating  the  motion  of 
forced  beams  has  been  presented  above,  as  it  applies  to  one-dijaensional 

motion.  The  method  is  in  no  way  restricted  to  one  •dimensional 
problems,  and  is  easily  extended  to  the  n-di  .sens  tonal  forced 
motion  problem.  Tlnce  M03TAR  conelders  only  blade  flapping  mot  id) 
at  the  present  time,  the  multlcoordinete  extension  of  the  modal 
method  is  not  presented  here.  If  necessary,  the  extension  can  be 
made  to  include  inplane  and  torsional  blade  modes.  The  number  of 
normal  coordinate  Is  Increased  If  this  Is  done,  tut  no  theo* 
re* leal  or  practical  difficulty  restrict!  VOTAB  to  the  staple 
on  ••  linen 'Iona l  case  presently  incorporated,  deference  3 
ho-  he--  the  norral  n»Je  method  can  be  used  to  study  flutter.  In  an 
equl/nleaf  manner,  OTAP  *ould  te  extended  rwlth  the  eoecapanyin** 
Increase  in  eonprer  *I-e  requi rements >  to  even  'nlude  blade 
*’iu*‘er  -i'ios. 


•  t  IrrK  ***■  t  .ar*  In  «‘«  vo  )  5  1  I%(1vi  here, 
r!j  Uv  ill  i<  l*ter. 


U 


III.  9 


OEHHEAL  COMMENTS  ON  THE  NORMAL  MOLE  METHOD 


In  any  practical  solution,  a  finite  number  of  normal  co¬ 
ordinates,  t'i  (t),  must  be  selected  to  represent  flexible  bod;, 
motion.  Usually,  the  coordinates  associated  with  the  lowest 
frequencies  of  the  elastic  system  are  chosen.  The  normal  mode 
method  is  very  practical  for  aerodynamic  rotor  blades,  because  a 
minimal  number  of  degrees- of- freedom  (normal  coordinate.;) 
need  be  chosen  to  represent  the  significant  characteristics  of 
the  blades.  (This  is  particularly  true  when  overall  vehicle 
handling  qualities  and  stability  are  being  considered). 

Experience  has  shown  that  the  influence  of  blade  motion  on  handling 
qualities  is  represented  by  the  first  flapping  mode  only.  For 
some  stability  augmentation  schemes,  the  first  inplane  (or  first 
"chord")  mode  may  also  influence  the  stability  and  handling 
qualities  of  an  aircraft.  Higher  frequency  blade  modes  are 
important  with  regard  to  blade  stability  (flutter’',  rotor 
stability  and  vibration  considerations  (including  structural 
fatigue  problems),  but  these  modes  seldom  affect  vehicle  dynamics. 

Sometimes  static  torsional  deflections  of  blades  influence 
vehicle  dynamics.  This  is  not  due  to  a  torsional  vibration  mode 
(since  it  is  a  static  effect),  so  consideration  of  this 
phenomenon  does  not  require  the  addition  of  another  blade  degree 
of  freedom.  This  issue  is  mentioned  here  to  substantiate  the 
claim  made  above  that  higher  order  modes  ''including  the  blade's 
first  torsion  node)  seldom  influence  vehicle  dynamics. 

The  normal  mode  method  has  many'  advantages  when  used  to 
study  vehicle  dynamics.  The  following  considerations  are  applicable 
in  this  regard: 

(a)  fhe  structural  characteristics  of  the  blades,  and  the 
influence  of  oentrifhgsl  force,  are  represented  in  the 
HOdeshape  functions,  ♦.(x),  and  frequencies,  o*.  It 
ie  —ay  to  estimate  manshupes  and  freceenclesl  if 
detailed  structural  Information  Is  unavailable  for  the 
•Iven  tied*.  Kor  Mn>*ed  blades,  the  first  nodesnnpe  and 
requen*}  (for  both  elxard  and  flapping  motion \  an  to 

determined  from  blade  geometry.  Reference  6 
*1  ms  an  extensi  ve  *a»uieMi*n  of  rodeshnpes  and 
frequencies  for  pinned  and  cantilever  earns  rotnt  n 
and  nonro'atlrv  )  with  linear!  ary  1  r.  rrr'urd 

chara*terist!*s.  and  wlM  Mp  ve^  Vj.  The.™  -h nr* 
can  le  used  *o  *e*  vod  esMr.ates  f  nodes’  ape*  a*  i 
renuen  ‘es.  If  de* ailed  da’a  Is  una  -allalle. 

(b)  The  d  ■naml  *s  or  a  chicle  are  usually  quite  InswnW 
tire  to  error*  in  estimated  modea  ipe  functions. 


Very  primitive  models  can  be  used  for  these  functions, 
while  still  achieving  accurate  results.  It  is  only 
important  that  the  modeshape  function  be  compatible 
with  the  mass  distribution  estimated.  When  estimating 
a  modeshape  function,  use  the  mass  distribution  which 
will  produce  this  shape.  If  Reference  6  is  used  to 
estimate  modeshape s,  this  requirement  is  automatically 


(c)  Usually,  very  stringent  rotor  design  criteria 

restrict  the  frequencies  that  a  blade  must  possess. 

This  is  particularly  true  for  the  lower  blade 
frequencies.  Knowledge  of  these  requirements  makes 
it  quite  easy  to  estimate  frequencies,  even  for 
undesigned  rotors  being  studied  for  predesign 
evaluation. 

Borne  concern  must  be  given  to  the  function  p(x,t)  when 
the  normal  mode  method  is  applied  to  aerodynamic  rotors.  Eq.  (331) 
gives  an  expression  for  the  generalized  forcing  function  in 
terms  of  the  distributed  force.  In  the  case  of  aerodynamic 
rotors,  p(x,t)  will  contain  all  aerodynamic  forcing  effects,  and 
most  inertial  forces.  Certain  terms  in  the  inertial  distributed 
loading  functions  refer  to  loads  caused  by  BRL  acceleration  or 
position  in  the  rotor  axis  system.  The  terms  -my,  +  myfa-fi)^ 
in  Eq.  (29*0 ,  and  -m2  in  Eq.  (295)  are  in  this  category. 

These  terms  are  included  in  the  equations  used  to  perform  the 
vibration  analysis,  leading  to  the  determination  of  the  eigen¬ 
values,  u£,  and  eigenfunctions,  bj,  for  the  "unloaded"  BRL. 

The  influence  of  blade  tension  will  also  be  included  in  the 
vibration  analysis.  Since  these  terms  are  included  in  the  modeshapes 
and  frequencies,  they  must  be  excluded  from  the  distributed 
functions  tnat  are  integrated  to  get  the  generalized  forces. 

Considerable  flexibility  exists  as  to  which  inertial  (and 
possibly  aerodynamic!  forcing  terms  are  to  be  included  in  the  vibration 
analysis  (and  thus  excluded  from  the  generalized  forces)*  Reference  5 
chow '  a  constun*  coefficient  damp  lag  terra  on  the  left  3ide  of 
Eq*  ( 323 X  (Ka,(323)  irolics  that  the  damping  is  included  in  the 
generalized  force  term.)  When  the  nodal  analysis  is  applied  to 
an  aerodynamic  rotor,  the  generalized  force  terms  usually 
con*ain  effective  spring,  damping  and  mass  terms  (i*e*9 
the  Influence  of  *  and  Vr  Is  present  in  the  function  Hr  of 
1.  (323)*  T  o'c  •ernsrusually  appear  with  time  varying  co» 
efficients  or  In  nonlinear  formulations,  which  makes  It  necesstry 
•o  n*iuie  ••cm  in  the  ’enerallzed  force  ’err.  Instead  of  on  the 
left  11**  o‘*  *he  equation*  Experience  has  shown  that  the 
ire***”  •  *errs  can  le  Included  In  the  *enerallsed  forces  as 
F?.  323  I  ln*c«ra»c.j  numerically,  with  no  observable  errors* 

*  Is  lealra'le  to  Include  as  aenj  sprJn*  and  mass  terms  In  the 


11> 


vibration  analysis  as  practicable,  however,  excluding  these  terms 
from  the  generalized  forces.  (Of  course  this  cannot  be  done 
if  the  terms  are  nonlinear  or  time  varying) .  ThiR  is  particularly 
true  if  very  low  levels  of  damping  are  available  for  one  or  more 
of  the  modes  (e.g.,  the  inplane  mode  on  rotors  with  no  inplane 
dampers) . 


in 


1 1  i.  10  CALCULATING  TiiL  BLADE  REFERENCE  LINE  ANGLES  AND  COORDINATES 


The  previous  section:  of  this  part  have  presented  the 
basic  normal  mode  method  for  calculating  blade  motions.  The 
solutions  of  the  modal  equations,  in  conjunction  with  the  assumed 
inodcshapes,  eventually  yield  expressions  for  the  blade  reference 
line  coordinates  y(s,t)  and  z(s,t).  As  can  be  seen  from  inspection 
of  the  inertial  and  aerodynamic  loading  expressions,  the  coordinate 
x(s,t)  is  also  required. 

The  transformation  (303)  can  be  used  to  derive  the  necessary 
expression  for  x(f.,t),  and  to  relate  the  eoordinates  v  and  i  to  y(n,t) 
and  s(n, t).  Consider  the  differential  length  of  blade 
reference  line,  ds,  as  depicted  by  Figure  12.  Since  the  blade 
axes  have  their  x^  axis  tangent  to  the  BRL 

at  s,  the  increment  ds  can  be  considered  a  vector  pointed  in  the 
-x  b  direction.  The  vector  -1,  ds  will  have  components  1  dx  *  ^  dy 
t-  'ft  dz  in  rotor  axes,  which  are  easily  determined  from  Eq.  (303). 


-<ts\  /dx\ 

UJ  '  w 


Converting  (327 )to  three  scalar  expressions  using  (304) 

dx  -  cos  i  cos  v  ds 
iy  -  cog  t  sin  v  ds 
Ir.  -  sin  •  ds 


(326) 


(327) 


(328) 

(329) 

(330) 


The  required  expression  for  x  is  found  by  integrating 
Using  r]  as  a  dummy  variable  of  integration  on  s: 


x(s,t) 


cos  v  dn 


Eq.(330)  yields  the  expression  for  T: 


(331) 


sin  t  =  dz/ds  ^  z  (332) 

2  2 

Fran  the  elementary  trigonometric  identity  sin  +  cos  =  1, 
the  cos  t  function  is  seen  to  be 


cos  T 


•  2 
z 


Combining  (329)  and (332 ), 

sin  v  = 


Again,  from  elementary  trigonometry, 


cos 


V.  Jl  -  -5^-7- 

y  i  -  z  ' 


(333) 

(334) 


(335) 


Eqs. (332)  -(335)  are  exact  expressions  which  can  be  used 
to  find  T  (Eq.(30U)  in  terms  of  the  modal  solutions  y(s,t) 
and  z(a,t).  The  angle  C  in  (304)is  approximately  the  blade 
feathering  angle  (clasaically  denoted  -e),  at  the  point  s. 

0  is  a  function  of  blade  twist  (which  makes  0  a  function  of  s) 
and  feathering  hinge  angle.  If  torsional  deformation  of  the 
blade  exists,  0  will  also  contain  the  state  variables  of  the 
torsional  dynamic  modes. 

Eqs. (333)  and(335)  can  be  used  to  eliminate  cost  and  cosv 
from  (335/*  B 

x(s,t)  «  -J  -  z*2  -  y*2  d r\  (336) 

Eq.  (336)allowa  coaqjutatlon  of  the  blade  reference  line 
coordinate  x(s,t)  directly  in  tens  of  the  modal  solutions 
y(s,t)  and  s(s,t).  Sq,(?36)  is  possible,  because  the  BRL  has 

been  assumed  lnrtretehable  (see  Section  B). 
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Time  derivatives  of  x  are  required  by  both  the  inertial 
and  the  aerodynamic  distributed  loading  expressions.  These 
derivative  functions  can  be  evaluated  directly  from  (336)  by 
talcing  the  time  differentiation  inside  the  Integral  to  operate 
on  the  radical.  Eq.(336)  can  be  simplified  considerably! 
since  z '  and  y'  are  relatively  small  angles.  The  time  differenti¬ 
ation  of  the  approximated  version  of  (336)  is  also  much  cleaner 
than  if  (336)is  used  in  its  exact  form.  The  process  of  simplifying 
(336)and  than  taking  the  time  derivatives  of  x(s,t)  is  explained 
in  Appendix  I. 
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m.11  SHAFT  LOAM 


The  load  components  that  are  applied  to  the  rotor  shaft  by 
a  blade  can  be  expressed  in  integral  form.  These  loads  are  caused 
by  the  presence  of  the  distributed  forcing  summations  (317),  (318), 
(319).  Expressed  in  rotor  axis  system  coordinates)  these  force  and 
moment  components  are 


/ 


J’x4* 


(337) 


Yr  •  C  P*  “ 

Zr  ■  /R  *z  4* 
lr  *  /  Vz  -  ^y]4* 
"r  ■  /  [■*-*.]*■ 
"r  '  /  K  *  wx]  d* 


(338) 

(339) 


(3l«>) 


(3l'  l ) 


(342) 


The  integrals  in  Eqs.  (337)-(342)  must  be  evaluated 
numerically.  The  blade  motion  problem  must  be  solved  first  to 
deteraine  BRL  coordinates  x,y,z  used  in  Eq3.  (337)-(342). 

Of  course,  these  coordinates  must  also  be  available  before  the 
distributed  forcing  functions  can  be  expressed  in  numerical 
fore. 
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This  part  present*  a  collate  listing  for  tha  MOBTAB-B 
program,  written  in  FORTRAH  IV  coda.  Tha  program  haa  baan  run 
extensively  on  a  Uni  vac  1106  computer.  Typical  raw  require 
1.2  minutes  of  oentral  processor  tine,  much  of  which  is  used  for 
the  trim  search  iteration  and  input/output  operations.  Mo 
difficulty  has  bean  encountered  with  trim,  even  for  such  a 
complicated  helicopter  as  the  AH-^6A. 

MOBTAB-B  requires  approximately  42,000  floating  point  words 
of  digital  core.  TO  minimize  program  development  costs,  core 
limits  were  not  considered  during  tha  programming  phase.  As  a 
result,  many  arrays  presently  incorporated  in  the  code  contain 
large  blocks  of  zeros.  The  wasted  core  spaoe  used  to  store  such 
zero  blocks  can  be  eliminated  by  reprngr— ling  some  basic  matrix 
subroutines  to  handle  special  matrix  configurations.  This 
additional  programming  effort,  plus  other  core  saving  measures, 
can  be  used  to  reduce  the  core  required  by  MOBTAB-B  to  an 
estimated  size  of  2^,000-30,000  floating  point  words. 

In  addition  to  the  basic  MOBTAB-B  program  described,  the 
code  shown  below  includes  several  special  "convenience"  features: 

(a)  The  "repeat  run"  capability  eliminates  the  need  for 
submitting  a  complete  aircraft  description  dock  for 
each  run.  MOBTAB-B  executions  can  be  performed 
sequentially,  such  that  the  first  input  data  deck 

is  a  complete  deck,  while  subsequent  data  decks 
include  only  the  changes  in  input  data  required  for 
each  case. 

(b)  Output  options  allow  the  MOBTAB-B  user  to  elect 
to  print  either  all  aircraft  data  stored  in  the 
computer,  or  just  the  changes  and  the  output  for 
each  case. 

(c)  Input  indices  specify  the  peripheral  unit  numbers 
to  be  used  for  program  input  and  output. 
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Ttm  N0B1AB  jragno  dmlqprat  la  oentlnulnr  aa  deacrilo  1 
in  tha  aaln  text)  thara  flora,  it  la  auggaatad  that  Intending 
uaara  ahoulrt  oentaet  tha  anthora  to  rteilvi  uj^tcMlate  Information 
co  tha  currant  atatua  of  tha  progri. 
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IV. 2.  LISTING  OF  MOS&B  'B'  PROGRAM 


CROUP  1 

(SPEC) 

• 

GROUP  2 

(REDATA) 

item 

ITEM 

•ITEM 

ITEM 

l. 

«T 

11* 

LC 

•  1. 

PK 

11. 

WE 

2. 

XCG 

12# 

NOPTRM 

•  2. 

I  NTS 

12* 

VNOT 

3. 

vcr. 

13. 

IT 

•  3. 

KEI¬ 

13. 

PT 

4. 

ZCG 

14. 

OINRTA 

•  4. 

TEL 

14. 

P  V 

5# 

tag 

•  5. 

ZEL 

•15. 

PVDOT 

6. 

RhP 

•  6. 

A 

16. 

PF 

7. 

PSIOOT 

• 

•  7. 

tx 

IT. 

PTC 

6. 

PTCmRT 

*•  8. 

JX 

1H, 

TACPT 

9, 

ROLLRT 

•  9. 

X 

19. 

WACPT 

10. 

HpnT 

•  10. 

TE 

20. 

RaCPT 

21.  BOACPT 

• 

THE  ARRAYS  SP  ANO  RED  A«E  OCCUPYING  THE  /SPFC/  AND  /REDATA/ 

COMMON  REGIONS.  IN  NOSTaR.  THESE  COMMON  REGIONS  ARE  FILLED 
AS  SHOWN  PELOW. 

commom/spfc/wt *xcf*.  yog.  7cg.tas.rho.ps  i  dot,  ptchrt.rollrt .hdot.lc. 

1  NOPTRN i IT( A ) » Of  NPTA<  3#  3 ) 

COY.NON/PEnATA/PK(?5niA)iINTS(lO»8)»XEL(S)*YFL(B)fZEt(S)*A(6f6i0)f 

1  IX(bCO).JX(500).X(SCOJ.TF(6),WEC4e).VNOTC9)#PT.PV,PVOOT,PF,PTCi 

2  TACPT,WACPT,HACPT,30ACPT 

DIMENSION  NTEL  ( 25 . 2 ) «  no I MS ( 25 . 2 ) , R I ( 7 ) #  NS I ZE ( 3 . 25 • 2 ) 

CCMmON/SPFC/SP(27)/REOATa/RE0(3964) 
CO.-MCN/rHYSCS/PT«AKS(?50),|NTGClO)#NPK<8).N|NTS(8) 
COMMCN/PEOUG/NOXS 
COMMON/ I O/I PEP » IRYT. JRYTZ 

DATA  (MEL  ( I »2> » 1*1 »  21 ) /l. 200]  .20*1 . 2089,2097.2105.2393.2693* 

1  3393. 3«,93.Trt99, 3947#  3956, 3957. 3958. 3959, 39A0»396lf  3962. 3963*3964/ 
DATA  (\P1MS< I .1) • ! *1 *14)/12«0# 1.2/ 
data  (NOr*S(  1 ,2) .  I «1 #21 )/2#2»3®l#3,6«l#9#0/ 

DATA  (<MS!7F(I»J»l>»I*l»3>.J«l,14>/36*0»6.0»0*3*3*0/ 
data  ( ('.SIZE ( I  •  J.2) .  1*1*3), J*l* 21 )/250* 6, 0*10. 6* 0.8.0. 0,6*0* 0*6*0* 
1  0*  A.  6,6.  **0C#  0,0.500, 0.0, 500#0»  0,6, 0,0, 46,0*0*9,0*0,27*0/ 

DO  21C  1*1,13 
NTEL<I,1)»I 
NTEL( 14# 1 ) » 1 9 
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REAC!  5, 100 )  JREOi I*YT# |RVT? 

F0«'1AT{7UP) 

REAP!  IRFOalPQ)  * 'CASES 
WRITE! IHYT2.il)  NCASES 
00  1000  ICaSE«1»NCASES 

WRITE! JRVTZ, 10) 

REAO( IREDilHO)  NCHNGS.MSTOPT 
WRITE( I«YT2#11)  NCMNCS,MSTOPT 
IF<mCHNGS.EG.O>GO  TO  230 
DO  225  ICNCal»NCHNGS 

READ< IRED.100)  NGROUP.NITEM.NCHNUM, ! • J,K 
WR I TE ( I RYTZ . 11 ) NGROUP  , N I TE  H , NCHNUM 1 I » J»K 
FORMAT (IX, 7 110) 

F0HMATC1HI) 

CALCULATE  THE  START  POINT, 

NO  IM  *  NO !  ilS  ( N I  TE  M ,  NCROUP ) 

nst«ktel<nitem#ncroupj 

1S«MSI7M1.M!TEM#NCR0UP» 

JS»MSIZr (2,M!TEH#NGR0UP) 
KS«MS!2r(3,N!TEM»NGR0UP) 

!F(M(J!^,tn.l)  NST»NSTM*i  • 

IF < Nil I"!  .FT.?)  WST«NST* 1 ♦! J-l )•!»•! 
IF<nOIF.E0.3)  NST»NSTMM J-i)«!STtK-l>M»»JS-l 

'|A*I  TM»  CHANGE*. 

NL1ME«0 

neo«nst+nchmijm-i 
DO  300  I«NST|NF0 

INDFX«I-NST^t 

|FC INDEX, L£.NL1NE*7)  GO  TO  270 
NL!Nfc«M  Jl'En 

REAOC  iKKDf  1?0HRI<  J)i  J*l«7) 

WRITE! IRYT2,12)(RM J),  J«i,7) 

FORMAT!  7F10,,0 1 

FORMAT! 1X#7F14,4) 

CONTINUE 

NC0L«INrEX-!NLlNfD«7 
IF!kGRCUP,FG,1)  SP(  I )«RI!NC0L) 

IF!nGRCUP.EQ,2>  REO! l>t*l (NCOL) 

CONTINUE 

CONTINUE 

CONTINUE 

CALL  NOSTAB !MSTOPT) 

CONTINUE 

STOP 

ENO 
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SUBROUTINE  KOSTaBCISUTOS) 


mobtao 

CHOOUUAB  STABILITY  OfKIVATlYf 

irjQFX  OfBC«lYTIOM 

H  NU«AE*  OT  VCMietl  tLllfcOTS*  tB  0*  rfO|0  HOB) 

NTVPiClM  T VAR  Or  |*TM  LUt'BBT.  WMEBC 

ItLirTIVC  8UBTACC 
T«NCW 


N?**«UC  1 1 
LCCNil 
KCIt.tl 
MNICII 

muiiii 

L»A*S 

lltlfl 


SarurxiBLC  BBTOB  (rc(X|KI  OLAOBB) 

4«A|Cn  BOTOB 

viFiir*  or  ti«ib  i»th  mtw  tBruriTiWB 

MAVf  BT(K  **AOf . 


wvi  or  riw  fuwy  iB  t*  cjbtbol 

eOLU-N.C.  ABBOCIATID  BIT*  **101*  WW  |, 


total  «b tbtb  or  rLKK«TB  ib  e  abbbciatib  bit* 
AtocnrT  ILIW  !• 


wrato  or  bloat  100  boibt  pabaabtibb  tb  bo  bub 
rot  aikbatt  li««CBT  t. 

BhTt  BT  T|BB  BBIBT  H*inw  *B  BliB 

ro»  AtBCOAft  lifrfBT  !• 


va*»  or  B#  NfBITf  IHBATIBB  ctcu* 

BiTBtao  m  mm  cmomw 

BTABIllfB  OfB|tAT|«f  oJtO|B  CAi«»MT|BB* 


r.ffBi*  t 


|ov:9  i  •  I'W  tO  > 

_ _  _  __  „ 

i  tiiMD».ji«w»*«w,i.iriiiiio*w»»wiw*»»pf»w»^f,p,*MC» 

MP*‘0MfO*lUCA^t 

(OMOH/iiPi<RT/tBM|tVilif|lttil)ilffiOT(t9*t) 


Pitt 

t  •*■•#•••  #•«§•/ 


cm*  wmiiiioowoi 
Mtniiiit) 
fMlAVniiltll) 
f^4f||kiK!li«) 


iMftOitn. 


\MM| 

pc  m  imi«i 
%f^yt|  in 
K  Off  ttt*«t«% 
|M*tWltH«||la.tt  to  f|  nt 
•IftvfftWMiftattMtOifl 

rHHMtMttMilll«tlll|t 

C*%*J  4«. 
fOMln 

rO  Kf  tM|iM(l 

re  m  4«i»vn 

tv|ltt«jftt»M 

mtinjHM 


cc\*«*n  cfo^(T«ie  "omix  i. 


C?  !•!#•” 

05  2«P 

os  ?i>  *n.« 

V- C  J 

|rij.u*«)  eiHteiim.l 

C^TI‘4.1 

Cf\t!*A.r 

6*1  •sC*i.%ltffit|l 

c*t>.irM«*!a*ni<n 

chcwau  •* ••koo  «UMf|ti«t9 


cevTtM 

mn 

ircw.ll.tl  CO  TO  99t 
e«  «/«  itM.o 
TMt|ltHlttl*OT<tn 

rr  «/% 

hi  t  jjt 

CtNtJ^r 

C*U  CC  T**4«ft#«"OTaCOI 

C«u  YKC^irVinOT.I»«*OVKT«IPNtieOltilTNieVN) 
C*U  •C*<r*«M»V*l*OAM»Of»#CSf#OOI 

i:<cuti  row 


(Hi 

(Hi 

(Hi 


f.  *?«  »•••♦ 
ntii%: 
n  *v  iitiMH 
01 1  t  1  l«Tf  «c» 

rvtv 

»v j t*  H|M(»ir«  A»l|f|  |f  Tuff  to  ThO  fhll  fwftao 


1.0 


commutation. 

IFClSTFSS.NE.U  CO  TO  2*3 


W!HC|"VT«10> 

FORMAT! INI  9 

CALL  R|ORYT!2*!8UPR§9 

CONTINUE 

IFIlSTFSS.tO.l)  CO  TO  t* 

WRITE  TR|»*-$E4RCM  RESULTS  IK  ABBREVIATED  FORMAT  FOR  GENERAL  INFO* 


VRITEIZ.90) 

FORMAT! 10k  *  * 

FORMAT! 1X« AS 

FORKATC/.1V* 

WRITE f /*fl ) 

WRITE! I«tl ) 

WRITFU.tl) 

WRITCCZ.tl) 

WRITfd.Sil 

WR|T|(|*9i) 

WRITE!!, ft) 

WR|TE!?»«I9 

W*|TE<!,919 

wRin(t*tn 

W«|TE!|#S|9 

WM|HCI«SU 


NRA*S 

CF»FRAL  TR|«<.RCARCM  DATA- 
»/»uv*i4F«.3n 
•FLEXIRLE-RLAOE  ROTOR, 


MASS  NO* SIS) 


noRrm«(ro(i) 
oopccz  i.CTrcj) 
ROPC(3),(80(|) 

OOTF(4)*(RO(p 

ONT(S)*(R(n. 

noFFUKtwt) 

COFfC7l*(0tf(|9 
nrrF<R9*cvFii) 
OOKCSI«CWp(|9 
O4VE<109»fVt0f 
Oft*  (U)'CVAOf 
OORFClf  l«(F0(f 


1*1, LC9 
1*1 9 
t»1 *49 
l»t#A9 
•  I»A9 
l*l#49 
t*t*MCEL9 
!*t*NKCL> 
IMiNRL) 
9»t*l*NKCL9 
9»t«lflRKL9 
f|4S*IMKL) 


ELEMENT  NO. M2) 


00  ts 

irt*Tm<jn9**C'>9  so  to  n 

WRITS f|,tF9  JO 
NRM|NTttf»JO> 

WRITEIf«tS9  OaPMU)il|ITM(iJ9i|i|*IRF) 
WRlT*II,fl)  OOP|<14tt<OFTAOTtt#JO)*|Rft»l*»t 
CONTINUE 
CONTINUE 


|N|T|AitK  SRAOIENT  MATRICES 

wottn 

8393 

WW|lt««9M*R 


13 


THI-.SitneM  results  in  «b<mcvi*tcd  format  for  scncrsl  info. 


WRfTEf 2,90)  NP ASS 

FOR  UT(lOkf«GHfrRAL  T»t*f.ft£AKCM  &ATA- 
Fn<('iT(lXii3i/l(Ul14r9,3)) 
r?^*  JT</*1,t*irtfX!«tE«9LA»>E  ROTOR, 

UP!U(/.9n  r)OPr< i ), <roc j ), |«i ,lc) 
ooMt:c2).CTr<t),f«3,«) 
noPM3),c<;nct)ofiio4) 
O^F(4).(eoc !), 

PO(*r  <5)s  CP( 

P0PFC6)»C*1TC  !)«?*1,6) 

C^^F(7),(-)w( 

(irrp  ( a ) .  ( \%  ( | ) ,  i  «| ,  sjke^  > 

00PlC9).(«p{  I  >,  I»l  ,vKf-L> 

(WFClGMvfOC  |  >»!«1#NKEL> 

OOPF  C 11 1#  ( VAOC  | )» f«l#\'KFL) 

OPPFCl?)»CPOn),Itl,NKF.L) 


PASS  NO,  M2) 


ELEMENT  NO, * » 12) 


•J'!TfcC/,9l ) 
WRlfFC/,9n 
**!TE<2,91) 
WR!TtC2,9p 
WHITEC/,91) 
W«ITFC2#9l) 
WKJTI (7*9l ) 
►  MTU/, 91) 
WW|TfcC2,9l) 
MMfTU/otl) 
WHITEC/,91) 


00  9S 

irCvTVPi  ( JD) ,\F. »3)  50  TO  9* 

WRIUC/.f?)  jo 
NRP*!M$l?,JO) 

“?!««/.*>»  «BET»U.X».|n.NRF> 

OOPt(I4),(RFTAOTC|,JO),|*l.NRF> 

COJr.Lf 

CO\T!*.ut 


hinillK  GRADIENT  MATRICES 


*?lCN«t 

TO  440  IAIo^mCFL 
DR  439  JiioMfl 


»TAtl#jli^.R 

k%Al|#-|A3,T 

•*\  -MIowHOrO 

•»!  fV||9j)«9,o 

•M|uli3,Q 

tMj.f.f'id  go  TO  4 St 

fCIf 

•CCf oj)*3or 


c:**i  w* 
cp*  n  u 


cncwiAU  9~g  twt'sr  •atricfi.  urst.  find  ct,  st  ano  «t# 
|ffi  iTP-,Sof#<ol>  60  90  9*S 


13*) 


00  310  !•!•* 

TMt>*T»  Ifl^PT 
CALL  CC'TTlLCTF.VfcOT.C) 

CALL  VrLCTvm.WKOT.S.NOJUCT.SPMl.C^Hl.STMtCTM) 

CALL  ^Ct«3L'(8.SPHl.CPHI»8TH*CTHtH) 

00  30*  J»1#LC 

CT(J»!)»(C(J)-C0(J))/PT 

CO  3C7  J«1,A 

ST(J*|)«(S(J)-S0(J))/PT 

RT( j* 1 )*(R( J)-RO( J) )/PT 

TE(|)«TrCn-PT 

CONTINUE 

FIND  F^I  AND  WV! 

DO  320  K*1.N 
DO  319  1*1 #  6 
I»?0*6*C  K-l  )♦! 

VI0< IK0)*VI0( JR0)*PV 

CALL  FC«CF(K.?.VAO#VIO#VIOOT#COiF.PK#1NTS) 

call  WAr.H(vAO,vio»viooT«rnlw«xlix»jx»AfMEx) 

DO  31*  l.*l » 6 
LR0*6*<K-1)4L 

FVKLRC»INO)»CF<LRO)-FO<LRO>)/PV 
DO  317  L«1iM<EL 
WVI(L»1R0)«<W(L>-W0<L>)/PV 
VI0(IRC)«VI0( IROI-PV 
CONTIMUF. 

CALCULATE  FVA  AND  WVA 

00  330  K * 1 » N 
DO  329  I *1 » A 
!R0*A*(k-1)«H 
VA0(IRC)«VaO( ^ROJ^PV 

CALL  FC'iCE(K,2,VAP,  VIO,VIOOT#CO#F,PK,  INTS) 
call  wadm(vao#vio»vioot#fo,w,x#ix» JX»A.NEX> 

00  32A  l«1.6 
LRC*^*(K-t ) ♦L 

FVA(LRC.IRO«CFClPO>-FO<LPO))/PV 
00  327  L»1#N<FL 
VVACL#!90>*(W(L>-WO<L))/PV 
VAO(!RC)«VAO( iro)-pv 
CONTINUE 

COHPUTF  FC  AND  WC.  COxPUTF  ELEMENTS  OF  F  OML*  FOR  THOSE  VFHlCl  F 
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Tkl|Mfri|)«#T 

eO*T!M£ 

rwo  f*i  i»»n  vvt  *,  • 

00  320  MltN 
00  319  1*1.6 
H0a*«(iflKt 
VIOC  !L'CI*V|0f  |Rn)+PV 

CAU  FCWCF(K,?,VAO.VIO.V|OOT#CO#r.^lC#l»m> 

CALL  WA?M(yA0»V!O«VtOOT*rO*UaX»!X»JX*A»NKXl 

00  31(>  L»1  #6 

LR0«6M«-1)*L 

FVlCLHCi|'<0)*<FCL»0>-rOCtXO))/PV 

00  317  L*l»M<fcL 

WVMLi!'*0)iU(L>-W0<LH/PV 

VIC(I«C)*VIO(!RO)-PV 

CONTINUE 

CALCULATE  FVA  AMO  WVA 

DO  330  K * 1 1 M 
00  329  Iil,6 
IR0«6#(k-1)M 
vao<ihc)«vaO(;ro)^pv 

CALL  FOnCE(K,2.VAO,V!0,V?nOTiCO#F,PK*!NTS) 

CALL  Wa?m(VAOi VlO* VIOOTf FO* W«X« IX. JX. A.NEX) 

DO  32*  L*t » 6 
LRC«6«(K-t)+L 

FVA(LHC. !HO)«<F<LRO)-FO<L*0>>/PV 

DO  327  l«1#MKFL 

WVACLi  !»0)*U<L>~W0<L))/PV 

VAO( I  PC ) *VAO  C !RO)-PV 

CONTINUE 

COMPUTE  Ft  AND  WC.  COMPUTE  ELEMENTS  OF  F  ONL*  FOR  THOSE  VEHICLE 
COMPONENTS  AFFECTED  BY  C(J). 

DO  3A0  J«1,LC 
C0< J>«CO< J)*PTC 
DO  338  «*1.N 
!F(\C(i<i2)  )33?»33A»33?  ' 

IF( j.LT,NC(K.l).0R.J.GE.(NC<Kil>*NC(K»2>)>  GO  TO  336 
CALL  FC»a:(Ki?.VAOiVIO,V!POTiCOiF»FK*INTS> 

DO  33A  t.*l , 6 
LWC*8«(k-1)^l 

FC(L^O#.J>«(F(LRO)-FO(LRO)  )/PTC 

CONTINUE 

CALL  4A‘>H<  VAC.  VfO.VIOOT.Fn.W.Xi  IX.  JX.  A.NEX) 

CO  339  lM.NKEL 
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CtlJ)K*«J>-»VC  • 

riin  a 

00  M  MliHtfi 
nniofiDOf  • 

oo  h# 

COMPUTE  rvtoOT  410  W!00T. 

|M||TPf«,vr.|)C0  TO  101 
00  300  «•!•» 

00  SOt  !•!•* 

!ftO«4MVll*! 

vinnT(i«ci«rtnoT 

C4U  FeRCfOC,f,VAO,VIO,VnoTtCO,X«*l»IllT»l 
CALL  WAKMVA9,Vt0,V10OT,rft,4,X»VX«JX»A,KEX> 
on  304  L*t  ,4 
L*0«4Mfl>+L 

FVIt,CT(L»O.!»O)*CHLOPI-rOCLll0n/OV00T 
00  3tT  L*1»N«FL 

WVlll0T(L#l«0>«CW(L)-WPCL))/tV00T 
VIOOT  ( |R0)»V|00TC  |03l»PV00T 
CONTINUE 

CONTI'tyF 

TM£  GRa.^U^T  MaTXICCS  Atf  AVAILABLE*  00V  SOLVE  FOO  OT  ANO  0« 

IFCLSTrSS.E^.l)  CO  to  430 
K«NKC. 

CALI  .1TX*PV<vr.,CT,VT,*,Le»4»44,l2,44) 

CALL  HTXMPVC G* ST, WC, K, 4, 4, 44, 4, 41) 

CALL  MTXHPV<WV|,VC,VW,K,K»6  ,44,44,44) 

CALL  MTVAC!)<VW»VT#WVI,K, 4* 44,44,44,1) 

CALL  KTVPpV(VF,rVA,rW,K,K,K,44,44,44) 

CALL  MTXAPOCFW,WVA,VW»K,K, 48,44, 44,1) 

DO  340  i»i,k 

VV< |,J)«VW( !,I)*1.0 

CALL  HAT|NV(VW,44,XfOFT,!RANK)  ' 

IFC JRANX.EO.K)  GO  TO  341 
WRITE!?, 430)  OET» IRAN* 
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f  at  f  >«Fccn-pr 

COMPUTE  FVJUOT  ANO  4VID0T, 

$ 

irtl  STPS$.\F,l)r.O  TO  341  * 

CO  360  <*1  .ft 
PO  399  IMift 
!K0*6*(K-i )*| 

vio^tc  i«ci«PvnoT 

CALL  FC  m (<»2«  VAO,  V|C,  V|O0T»C0.F*Pi(.  INTS) 
C*UL  *AS*<YA«5.VtO.VlDOT.FO,rf.X.lX,jX,A,NEX) 
00  35»H  l.M.6 
LW0*6*(^-t)*L 

FVIf.CTCLW^.!»0)«CFCLRO)-FOCURO))/PVOOT 
PO  m.iAFL 

wvi'»nnL»!k!))«(^cu-KO<u)>/PvnoT 
VIOnT ( t»0 l«M|POT« im)-PVOOT 
C0'TIM>* 

CONTI  •JiJF 


The  GRaMUNT  MATRICES  are  AVAILABLE.  NOV  SOLVE  FOB  OT  A  NO  0«* 

IF(lST»'SS.E0.1)  go  TO  490 
k*n<Cl 

CALL  MTX"°Y(WC*CT» VT,* ,LC,4.40#l2.4i> 

CALL  MTXMrv(G.ST.WC.K.*.6.4ft«ft'4l> 

CALL  MTXhPY(WV|.WC.VA.i(.K.4  .40,40,44) 

CALL  MTVACf)CV*.VT.WVl.K.  4. 40,40, 40,1) 

C/Ll  KTXMPY<#T.A*VA,ew.K,K, *,40,40,40) 

CALL  MTkAOOCFw#  *VA,V«f«K,K»4ft.  44*44,1) 

DC  340  t»l,« 

W<  !» 1>*W<  III  >*1,0 

cm.l  f»At  U'Vivw.Ap.u.orr*  iba^ki 

1F(  t*A\«,F3.0  r.o  TO  3*1 
WRITE (/.A30)  OFT. IRAN* 

SO  TO  1000 
CONTINUE 

CALL  MTy*Py<FV!.WC*FW.B.IC.4*«A»4I#48>  • 

CALL  F<TXNPYCFC#CT «FV! *K,LC»6*49,12,40) 

CALL  »;TXtro(FVt.FW,FCi<.f .40,40,40,1) 
c/Li  jfvPV(rfr*l  C.FVf.K.K ,4.44,40,40) 

CALI  VT  tf  A*\)(  *C,FVl«VT,X,ft,44«44,40,2) 

CALL  M1xaP*)CyT.  Vl.rVI.K.6.411, 44,40,21  • 

C. / LI  •*TxM>YCV.,»  VI ,YT,<.K»6,4rt,4F ,44) 

CALI  *  ft  »’YCA»'A,VT,FYf  ,<»*, rt, 4(1,48,4*) 

UU  Vj  ..*!V,ccV!,FC,?T,K,f  ,4  l,4H,*4,J  > 

C 4 1  i  l" f  ( F v c  t  V  »F  » , K •  *  , K, 4M,  4 A, 44  )  , 

r-.%  3‘«*j  icp»t.4 


DO  3M  fcC»*l»A 

TFK*»*0.0  • 

00  3*3  lCP«l»v 

T£^P»Tf >P»RCLCP» JCP)*PT(LrPi<C^I 
fcT  ( JCP  •  I*  CP )  «RT  <  JCP .  «C*» ) -TEMP 
COM  t  MUF 

CALL  MATp.V(RT»A^OE7»  TRANK) 

|F<  jRAVt'.PQ.A)  GO  TO  347 
W^!TP<7.A3p|  PET • TRANK 

co  to  non 

PORMATC//, iv, •  inversion  flag' *  Ox, ’determinant*' *eu  *4,9X» 
.  *RaM<**, !?,//) 

CONTINUE 

CALL  MTVAPnCi'O, WE, W.K.)  ,44,44,4ft,?) 

CALL  MV«rvCri;,W,VI,K,K.  1,44,46,4ft) 

CALL  HrVArn(F0,V!,F,K,l,4P(4«,4A,2) 

PO  3»»  JCP«1«A 
RVl(JCP>«0.n 
DO  3»3  LCO«t,K 

RV1( JCP)»RviC JCP>*G<LCP»JCP)«FCLCP) 
RV2(JCP)«RV1(JCP)-R0Cjcp) 

CALL  MTVPPV<»T,4V?OT,6,6,l,6,A,#> 

OT  is  available,  now  ftm>  nw, 

CALL  MTVMPVCVW,L,r»*,«,1 .44,44,4*1 
CALL  ^TviPv(rfW#,p,vi.*.K,l,AA,4H,4S) 

CALL  MT  <»v.PVCFi»,.u,.P,^,«f,1 ,44,44,44) 

CALL  rilXWPvCv*T,P.VA.«C.K.|,4*»,4a,4li| 

CALL  KT*AOD<V!  .'’A.t  «K,l,44,44,4ft,l  ) 

CALL  MTV/.PV( WVJ *0T*V|,K,4*l,4A,f,4A) 

CALL  *uy«py C VT.rr.VA, ^,4,1,44, 4, 4A) 

CALL  KTX>PVC  *VA,  VA,  V, if  ,<,  1,48,40,44) 

CALL  MVAnfl(L,\  I, VA.K.  1,44,44, 4n#l) 

CALL  NTyMPrCFT,f'T,V!.v,A,l,4A,4,44) 

CALL  MTXKPY(VF,VI,*,K,K*1.4A,4h,44) 

CALL  HTXAODC W, VA, V| ,K, 1,44, 48, 44,1) 

CALL  MTXADOT VI #P,nw,K, 1,4A,4§,44,2) 

FIND  MCnULI  OF  CONVERGENCE • 

•  • 

VCLOS«0,0 

TCLOS«0,0 

BCLOS«0.0 


FORMAT «//*lX* •  INVERSION  FI.AG* »SX» •OSTERNINANT** *£ll*4*5X* 
1  *R*M»M2.//) 

CONTJ  Mir. 


CALL  f*TXAnnCf,0#VE»V*X*I*<**4®»4*»^> 
CALL  RTXMPV(FWtN»V|  *IC*K*l*44,40i4A) 
call  nmrncFO*vi *f*k*i*4a,4G»4a,2) 
po  395  JCP«1»A 
MV1(JC?)*0.0 

PO  393  k  ,  __4 

RVlCJtf>)*Svl<JCP)*GaCP*jCP)«FCLCP) 


rvjcjcpm^vicjcpi-roucp)  4  4  41 

CALL  MTXyPY{RT.RV2*0T*A»A*l*A*G*i) 


OT  |S  AVAILABLE*  NO4  FfA'O  0** 


CALL  MTXMPYCVV*V#F#R*X*t 
CALL  NTVMPYIWVA»F#V!*X*X 
CALL  HTXMPY(FV.W*F**.*,t 
CALL  HTXNPV(VF.F.VA.X*K* 
CALL  MT«AOD<VI*vA*F *K*li 
CALL  MTX/.PVUVl*DT*Vl*K* 
CALL  MTYM*>V(VT.nT*VA*tC#6 
CALL  MTXMPVUVA*VA*N*R,< 
CALL  MTXAPPCW.VI.VA.K.1* 
CALL  MTYMPY<FT*f'T*Vt»*#A 
CALL  MTXi’PVCVF *Vl***K*K* 
CALL  MTXAPOCW*VA*V| »K»1» 

call  mt  x  apo i v i • f • n  4 • k • i • 


*44*44*41) 

•1*44*44*4®) 

*44*44*4®) 

1 ,4^*44*44) 

44*44*44*1) 

4*1*  44*4*44) 

•1*44*4*44) 

*1 *  44*44*44 ) 

44,44*44*1) 

*1*44*4*44) 

1,44*44*44) 

44*44,44*1) 

4fl*44*44,2) 


FIND  HCnULt  OF  CONVERGENCE* 


WCLOS«0*a 

TCL0S«0,0 

BCLOS«0.0 

60ClCS«0*0 

CO  405  ICL«1*NKEL 

TtVP»Ab<5<0kUCL)) 

•  •,CLOS*kCLOS^TENP 
00  404  1CL*1 *4 
Tf'P»ABS(PTC |CL) > 

.  TCL03»TCLfS*TFr.P 

C3  <C»|  !CL«l»r* 

IF  I  nT  VP*  (  IC4.).^L*3)G0  TO  404 
TA  'l»Ht  A^S  (»*<<(34, 1  CL)  -4SAVF  It  CL  ) ) 

TJ  P«n«A^MP<C  37*  ICLl-POSAVfl  !Cl>> 
hCl^S*  *ruo'j*Tf  yt  h 
H  'CL03«  ’~rt.  ^♦Trr  p,n 
4SA‘*I  Cr.L)«^C?^*ICL) 
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DOSAVEC tCL)«PK<37,iri> 

COfT!  HUE 


DETERMINE  jr  The  PROXIMITY  TO  A  TRIM  SOLUTION  IS  ACCEPTABLE#  ON  IF 
ANOTHER  ITERATION  CVCLE  I*  ALLOWABLE#  A NO  TAKE  THE  PROPER  ACTION, 


IF(WCICS-WaCPT)412,41?,420 
IF  C  TCLCf -T ACPT  )4l3 • 41 3, 4?0 
IF<r:CLCS-l*ACPT)4l4,4l4,420 
I  F(  *»OCLOS-MOACPT  M3S#  433, 420 
IF  <  NPASS-N I TER )275 .427, 427 
VRJTEClOfT.lO) 

WRITE(IRYT,42A) 

00B»*oI*iuiA#  AN  ACCEPTABLE  TB,M  ®0*-UTlON  HAS  NOT  BEEN  FOUND, •> 

PCI)«0.0 

00  40A  L«1.NKFL 

P<I>»P(1>*C<L»1>*F0<L> 

CONTINUE 

CALL  REDRVTC2. ISUPRS) 

60  TO  1000 
CONTINUE 


£  TRIM  SOLUTION  IS  AVAILABLE  as  TI 
stability  derivative  NATRICES. 


AND  VC  .PROCEED  TO  FINQ  THE 


LSTPSSal 
NDXS*1 
60  TO  279 
CONTINUE 


WRITE  INTERPSTIN6  ITERS. 

CALL  REORYTO.ISUPRSI 

MANIPULATE  6RADIENT  NATRICES  TO  6ET  STABILITY  DERIVATIVE  NATRICES, 
k*nkEl 

CALL  NTXRPY( WFiFVI . VW.r,K.k,4B,4S,4B| 

CALL  RTXAnn(WV!#VW,rw,K#K.46#4B,4S.l) 

00  716  1*1, K 

FWC lit )*FV( |,I )*l,0 

CALL  HTXMPYCWF.FVA, WV I ,K,K,R, 40,46,49 ) 

CALL  NTXAOO<WVA,LVI.VW,K,ic, 40, 40,40,1) 

00  719  1*1, K 
VHCf ,t)«VHCf .!)♦!. 0 
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VRJTEf !*¥T,t3> 

W»mC|»YT,4?P) 

FO«’ATt //,i»,  »an  ACCEPTABLE  THIN  SOLUTION  MAS  NOT  KSK  SOUND#*) 

•jo  ;-L4  t#t,A 
PC|)«0.n 
DC  L*1.N<PL 
P<1)>»»(  I  )*C(L»I>*F0<L> 

COMliU* 

CALL  HF’)RVT(2«ISUSfiSI 

go  tc  men 
C3M|\lF 

A  TUI  SOLUTION  IS  AVAILABLE  AS  T(  A  NO  WStPROeCKO  TO  S|NO  TM« 
STANILITT  DERIVATIVE  NATStCFS. 

LSTi»5S«1 
NnK5*l 
CO  TO  275 
CONTINUE 

WRITE  ir.TERrtTINC  ITEMS# 

CALL  RfcORVTCJ.ISUPRS) 

MANIPULATE  GRADIENT  matrices  TO  set  stability  derivative  matrices 

K*Nk£L 

CALL  MTXMPVCWF.rVI#VW#K«K#K«4S#4S,4S> 

CALL  NTXARDC WVI •VW#PW*KiK#4S*4i#4i#l) 

DO  71C  1*1, < 

PW( |i | )>Fv( 1 1 1 )-l*0 

CALL  MTXvPVC  WF ,FVA,  WV|  44#4§,4S) 

CALL  NTXAODC WVA# WVI  •VM#4|lC#4i»4A#4S#l) 

CO  71*  t«t,« 

V4 C | • I ) • V«  C  t • I )  • 0 

call  <  ATINVtVV.AA.K.DCTilRANO 

CALL  rtTYMPvCVk  #PW»VVI»«»«*IC#4A#4|»4A) 

CALL  MTXM»V<FVA#WV|#EVMf#«#K#4i#4A#4i) 

CALL  ►TYAr0fPWI»Pw*yvi»4#K#4A,4A#4i,2) 

CALL  KTXyPV<V'Vl#C»PW#X#t(#Al4*,4«#4A) 

CC  71S  |«1,4 
CO  71?  jM  1,6 
f 

CO  714  L*l»< 

PM  |U)«PS(  I,J)*C<L»I  )«PW<L.J> 

ck  .T|?u.r 

Co\r l  .w». 

A..L  AT(///) 
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C»U  *f  •  *|""T«  w | 

CALL  vi •rM««i<l4ili|l4i) 

C4U  MI,1>Vim»P4lWIl|l<(<,4||4l|4|) 

CALL  M(4^S(rv|rOT«ifV(infi«i<i4l|4|l4|||) 

CALL  M^tV^ie*tfV!i«,<il,4a,4l»4|) 
p9  m  tn.A 
n  ti?  j«t *a 
rsnTCi#ji«o.n 
eo  19*  L«i#« 

PSuOlC|9J»srtfOTC|0J»Ata*|l«A«fCt*JI 

contimc 

CONTI  Ml 

call  nTr«#Yivf .rc*rv,«9«9i  ei44,ia,4i) 
call  ’'T«#nn<rv*/t#4V|.i(9Le94««4||i«t*!> 

CALL  nT>Kf>V(VV9fr VI  »r49K*i(«LCi4li4l9l|| 

CALL  «Tvrf»VirVA9CM9W|9«9V9LC9O9#$90*| 

CALL  ^Tv«m}irr9AV|9CV9K9LC94t«094«99> 

00  79*  !•!,* 

00  737  JA1.LC 
KI|«J)*0.0 
00  73*  L*1«K 

FC<  I  •  J)MCC  !*J)^C<L*|  lAfWCL#  Jl 
C0\T|MjF 

contiwf 

V*4|UC|«YT,7n) 

FORMAT C SMI #<T#  •STA4ILITV  0C*1VaT|V£S  W|TM  UtMfCT  TO  0Vf»ALL  *• 

1  •vr^ictC  C^-OHnr.'ATI^,*! 

CALL  Mr»*TMt|SI*ORn) 

CW.Vf.RT  STA.IJIITV  orR|VAT|Vf.S  TO  STAtlLltY  AXIS  tV|T|N  COOROl*AT|S 
UC6AS0Cl>*7CC«$M»)-veft«Sft<*> 

VCC«5n(?)4kfC»ST(A)-2cC«*0(A) 

vr.r.aSO  (  5  )4Vr.C«Sr  ( 4 )  -*CC»50C  9  ) 

$rei-0«&  .KT(|if#r.**2*VC0»a7^WCC**2) 

RPCL  *Sf.LT  C  uCC*#74WC5**t  I 
lF«'»PlEn>74A,74n,7*0 
|F(«rCL  >741.7411,7*1 
CONTINUE 
W|T|C|RVT,74t) 

F0RHAT(//9lXt«STAP|LlTV  A*ES  ARC  UROidNCO  RtCAUSf  •# 

1  *TmC  INCRTUL  RRCCO  It  {FROM 


•9  #!•  it|*« 

9WQt  1 1  i^HUPtn  I  •  J»Ht  t  •  |  IH»|  1 1  •  Jt 

COWtvt 

(lu  (•«••«•••!) 

C«u 

Ciu 

CiU 

ciu  ^vii^iiri*vti’it<«k(««<^iMitt 

^  »!•  !•!•* 

Cf  »l»  jitiiC 
KIlijMM 
C9  H|i< 

KUoMKI|«j)H(ki|l«NliiJI 

COV»|K* 

CQ*.f|U« 

»e9^u«iitit*iTmkiTv  BcunTini  oit*  kkipict  to  ovooau  •• 
t  *¥f*ica 

cm  Hr«vvii*iMit) 

Ct^n»T  •?««!!  | TV  OfilVATivcf  TO  OTiOltlTV  *110  WTfH  C0000t«*TK0 

uc6<isa)*iec«»9i»i-vei«te<«i 
vceitec  f  mce«ioii)*2cc«i9(  a  ) 
i>cniiom*vec«rm«veii|(i(i) 

S*  §iO»i  .HT|i»CR««I*¥CO«»T»VCt«*t* 

•t'Ci  * 

IM  CCllYl|i?««»’>l 
CC*  TIMA 

ivio  auc  iMOtrtoKo  occauoc  •• 

l  •?..£  !M«TUl  vw  to  lfO«*l 

CO  TC  IflOC 
C5*.  Yjr.tr 
CYntCCC^CL 

CC"«t«5£t  /SVCCO 
S:v«ticC/SPrro 

•  TCt*ll«CY*i»CCT 

»TCi#3J»«CfV#5TM 

wTc>#ii«-*;cT#rTM 

M(?i2)«ccv 

hTMintf.U 


nodiioio 

riSiSMCTM  • 

ItK^r  ?•#  ST.'RtltTY  0CR|VAT|Vt  TRANSFER  RaIRIX. 

oo  m  ttid 

oo  m  j*i*s  • 

§Tf|«J|*AT<t*JI 

|T(|iJ«)M9d 

•?c  fO.l  )*YCG*RT<  IdHCCMTl  1 »?) 

§TC  |Oit)iIC|*RT(  |*1  )«XCS*RT(  1.31 

st(  io»))ticem(  ii2)«vcfi*r(  t»i  i 

conn** 

KOTaTC  ThK  VEHICLE  INERTIA  TENSOR  TO  STABILITY  AXES. 

C«U  NTXMfV(llTi1INIITA,tlf,SlS(S»li),4|) 

00  700  1*1*3 
00  7»t  j«t*3 
FTC  |*  J1*RT|  J*  t ) 

continue 

CALL  HTXMRYfrfF*FT*FV*3.3*3*4S,4A*4§> 

HAITI  M  ROTATED  INERTIA  TENSOR 
WRITE! IRYT.Tt) 

VRtTCC|PVT,l3H<FVCt*j).ju,3)*I*l,3> 

FORMAT <//* IV **TmE  INERTIA  TENSOR  EXPRESSEO  W|Tw  RESPECT  TO 
1  'STARILITV  AXES*'  •/»3(/,lQX,3F.l5.4),/) 

rotate  stahilitv  derivative  matrices  to  stasility  axes. 

CALL  MTXMPy<ST.PS*FVI.0.0.0.0,0*4A> 

CALL  MTyHPYIST.PSOOT*fV!0OT*0.0»0.0#0#4i> 

CALL  MTXMRV(ST.PC*EC»«.0.LC*0»0*4S) 

CO  70S  1*1*0 
CO  704  j«l*0 
RT( 1* J)*ST( J* I ) 

CONTI HUE 

CALL  HTXMPV«FVI*RT.PS»Oil.O. 40.0*0) 

CALL  NT XNPY I rv 1 DOT * RT. PSDOT *0*0*0. 40. OjO) 

CO  707  1*1,0 
CO  700  J*1*LC 
PC<t*J)*FC<t*J> 

CONTINUE 


1M 


$ni*)i  1  Mf  CC*m?  <  t  •  M-/CCMITI  f  »2i 
«TI  tO*?MK(«3T(  |  ,1  )'»XCC**TC  f  ,31 
|V(|0«))«|(C*ITl!,n  *VC6»IT(  |  •  1 1 

co\tk» 

* 

WUU  T*t  V(fti|C(.F  tKPDTli  TENSOR  TO  STABILITY  AXES. 

CALL  HTyKrv(RT,oiNPTA.wr,3,3,3,*#3,4A) 

CO  760  1*1,3 
CO  7*t  J*t,3 
ETC  I , J)*HT( J, | ) 

COijTp.Lt’ 

CALI  MTXMPVfwF,ET,FW,3,3,3,4S,46,4§) 

**IU  UK  HOTAKO  INfeRTIA  TENSOR 
LNlUCl*VT,7fl 

WMJTEC  I*>VT,l3)CCFW(  t,J),J*l,3), 1*1,3) 

FOR  ,ATC//,1X,*TmE  INERTIA  TENSOR  EXPRESSED  «ItM  RESPECT  TO  •• 

1  ‘STABILITY  aXES-*,/,3(/,10X,3F15.4),/> 

FOTaTe  STABILITY  OLRIVaTJVF  MaTRICFS  to  stability  AXES, 

CALL  HTXKt’VCST#rS,FVI  ,6,6,6, 6, 6, 46) 

CALL  MTYMPVt ST, PSPOT.FVIOOT, 6. 6,6,6,6,46) 

CALL  HTXAPYCST,PC«FC,A,6,LC«6*Ai48) 

CO  765  1*1,6 
CC  764  .1*1,6 
PTC |,J)«$T<j,t) 

COMTP.LF 

CALI.  HTX^t-VCFVI ,RT, *8,6,6,6,46,6,6) 

CALL  KT* viFY(FVir'OT,RT,PSDOT»6,6i6,48,6»6 ) 

CO  >67  1*1,6 
ro  766  J*l,l.c 
PC<  !,  J)*Fr.(  f,j) 

CO^TlKur 

k-M|U.  TmE  STAHILITY  AXIS  ARRAYS, 

WRITE!  p*YT,?i)  • 

FC^  iATClMj , 'STABILITY  DERIVATIVES  WpM  RESPECT  TO  •* 

1  'STAMt  ITV  AXES  COtME^SIOKAL),*) 

CALI.  RYTC4,Ir>UPWS) 

PU\C"  T*it  STai-ILITY  DERIVATIVES,  IKFRTUS  ano  KISc,  trih  ITEHS, 

Fif.r.«  ‘-.10 

n  vr.H  i'.«P,((pf-(i  ,j),j*i,a),i*i,a) 

PL\r><  M  P,  <  CP^’PTC  I,J),J«1,6),I«1,6) 
rr  /6v  1*1,6 
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PUNCH  M0,IPC!I*J).J«1,LC) 

ro  «u  i »i »3 

PUNCH  i«10#!FJ!IiJ>.J«l,3) 

PUNCH  *10#! SO! !>.l«l#6).(Tt<J)#J«l*6> 

FORMAT !*F1?. 4) 

DIVIOE  THROUGH  the  matrices  by  the  mass  and  inertias, 

QN.*S$«fcT/32 .2 

po  77?  1*1, * 

DC  774  J*1,LC 
!Fl|,r.T.3>  00  TO  77? 

IF! J.GT .6  )  GO  TO  771 
PS(|#JJ*PS(|,J)/0MAFS 
PSOoT  < I , J ) sPSOOT (I , J )  /QMASS 
PCU#J)«PC(  I,J)/QMARS 
GO  TO  774 
CONTlNijF 

IMJ.CT.A)  GO  TO  773 
PS(I#J)«PS<|,J)/FW(|-3.I-3> 

PSOOT ( I , J)*PSOOT( I • J)/FW< 1-3# |-3) 

PC! 1 # J)«PC! ! # J)/FW< |-3, 1-3) 

CONTINUE 
CONTI NUF 

WRITE  THE  STAPIL1TY  AXIS  ARRAYS, 

WHITE! IRYT, 22) 

FORMAT! lHl,»STAniL|TY  DERIVATIVES  WITH  RESPECT  TO  •* 

1  'STABILITY  AXES' #/,lX, ' (DIVIDED  RY  THE  INERTIAS).') 
CALL  REDRYTM.ISUPRS) 

CONTINUE 

RETURN 

END 


1*3 


SUBROUTINE  REDRYT( IPHASEttSU) 


INTEGER  R.W 

DIMENSION  COLS <  6 , 2 ) » ELTYP ( lA ) , ROWS { 6 ) , CLABEL< •  > » G ITLE< 20 ) 

COMMON/ I O/R.tf 

C0^t0N/SnanR/ST0<6.6#2>#PC<6«l2> 

C0MM0N/TITL»-S/TITLE<20»») 

COMfON/PHYSCS/PTRANSt  250 ) , JNTgI 10 ) »NPK< « > • NINTS( 8) 

CO*- nON/COLiJMS/CO  <12SSO<ASRO<  A)  #  VI  0<  48  )#VAO(  48)  »F0(48)#W0(48>i 
1  P(A)#UT(6),0W(48)  • 

COMM0N/r.HADMX/FVA<4«#48),FV!<48»48)iFC<48.12) 

CO-i*  ON/INOfcCS/NC(R#2>  #NTYP£{8)#nThRUC8)#N»NPaSS#  NDIRCSNEX.  NITER 
CON';ON/r,Prc/WT,XCGiYCG»2CG#TAS»RWO.PSIDOT#PTCNRT#ROLLRT.HDOT#tC» 

1  N0PTW*,IT<6),GINRTA<3#3) 

CONNOM/'»LnHST  / 1  OH  I  ST  #  BETA  <  50i «  S RETADT  <  bO • » > 

COM:  0N/MtnATA/PK(2!>0»«)#  lMTS(i0,8)#XHL<ft)»YFL<8)»7EL<fl)#A(6#6#8>* 

1  U(bJ()),  JX(SOO)#Y(SOO)«TF(A)tWE(48),VNOT(9)#PT#PV.PVDOT.PF,PTC. 

2  T ACPT i a'ACPT #PACf’T « BDACPT 

data  cltyp/'uftjs'nc  sus'RfaceS'  s 

1  'AEROOS  •YNAMIS  »c  boo  S  ' VS 

2  •ROTORS1  (FLES’X.  RlS'AOES)*S 

3  ’ROTORS'  (RIGSMO  PuS'AOES)'/ 

CATA  HCWS/'XS  'YS  'ZS  'LS'mS'NV 

DATA  CLAB6L/'C(  )S'C<  )S'C<  >S'CC  >S'CC  >S'C<  )•/ 

DATA  CCLS/'  U  S'  V  S'  W  S'  P  S'  0  S'  R  S 
1  *U  OOTS'V  OOTS'W  UOTS'P  OOTS'Q  DOTS'*  DOT'/ 

GO  TO(501«S02.503*504SIPHASE 
CONTINUE 

WRITES  1 10) 

00  l?  ITITi.U.4 

REAM  StC0)(GITLE<I)»t«1.20) 

•  WRITES. il)<G!TLE<ISIct#?0) 

IF(  lSlJ,PQ,l )  RO  TO  999 
FORMATUOA4.1PA3) 

FOR*  AT(1w1,10A4,10a3) 

P0R;AT(tX.inA4,l0A3) 

IF(|Si!.rOt2)  GO  TO  AO? 

REAM'S  110)  N.\0PTRM**I9IRCT«NEXiNITFR 
RtA';(R,11Q)(NTYPtC  I S  t  «1 «N) 

REAr'(R#llG)(NC(l»l)*NC(If2)«I*l«N) 

PEAO(R*110)(|T(I)tI«l»ft) 

•  CONTlN'jr 
COR  *AT  <  A  HQ ) 


1UU 


LC«0 

00  2  1 *1 #  M 

LC«LC^\C!t,2) 

• 

KRITE(W#20)hl 

FORMAT! 1H0#  'NUMBER  OF  VEHICLE  ELEMENTS  <N>* *  •  |2*3x#  •••  • 

1  13X#  • INFORMATION*  #/#39X# *•*  ) 

WRITE  (w«  21  ) NOPTRM 

FORMAT! IX#  ‘TRIM  OPTION  INDEX  ( NOPTRM)* * . 12» 10X# • A.  NOPTRM  SPECS 

1  MFIES  THE  PROCRAM • #/#lX#  * (SEE  INFORHATJON-A ) • #J9X# »•  VARUS*  • 

2  'LES  REPRESENTED  BY  THF*  »/#39X# '•  INPUT  QUANTITIES  PTCMRT  •# 

3  • (PITCH* ) 

WR I TE  ( W  •  22 )  ND I RCT  '  *. 

FORMAT! IX# 'FLIGHT  DIRECTION  (NDlRCT)** * I2.10X# ••  RATE)  ANO  *• 

1  'ROLLRT  (ROLL  RATE)*1 »/#lX# *(N0IRCT*0  FOR  FORWARD' #17X. ••• #✓* 

2  2X# 'FLIGHT  OR  1  FOR  BACKWARD  FLIGHT) *  #5X# ••*  #ltX# 'QUANTITIES*  #/# 

WRITE(W.IO) 

00  12  |T!Tl«1#A 

REA0(R.100)(G1TLE(  I )f !tl#20).  * 

WRITE!  will XGITLE!  I )• 1*1 #20) 

IFdSU.FQ.l)  GO  TO  999 
FORMAT! 10 A4#10A3) 

FORMAT! 1H1#1QA4«10a3) 

FORMAT! lX«inA4»10A3) 

IF! lSU,rQ«2 )  GO  TO  AQ2 

READ! R. 110)  N # NOPTRM# NO I RCT <NEX# NITER 

READ! R, 110) (NTVPE!  I )#  T*1#N) 

REAPtR# 11 0 ) { NC( l » 1 ) #NC! t #2) • I*1#N) 

READ! R# 110)! !T!|)#!>1#6) 

CONTINUE 
FORMAT! A I 10) 

LC»0 

DO  2  I*t#N 
LC«LCMC(!#2) 

WRITE! w#20 )N 

FORMAT!  1H0#*NUMRER  OF  VEHICLE  ELEMENTS  (NM*»!2*5x#**'# 

1  13X# • INFORMATION*  #/#39X# ••• ) 

WRITE! w# 21 ) NOPTRM 

FORMAT! IX# 'TRIM  OPTION  INDEX  (NOPTRM)** » I2#10X. 'A.  NOPTRM  SPEC*# 

1  *  tF ICS  THE  PROGRAM* ./,1X.* (SEE  INFORMAT I ON-A ) • #1 9X# ••  VARIAR*# 

2  'LES  REPRESENTED  BY  THE* #/#39X# ••  INPUT  QUANTITIES  PTCHRT  '# 

3  • (PITCH*) 


1^5 


WMtTECta«2?)rntHc1 

•  FORpATUX#*FlIGmT  DIRECTION  INDIRCT)*'  •  l2»10X«  ••  RATE)  AND  •# 

1  *ROLLHT  (ROLL  RATC)-*#/#lX«MnniRCT«0  FOR  FORWARD' »17X» '•• */# 

2  2X,*Fl!CMT  OR  1  FOR  BACKWARD  FLIGHT) • »5X#  '•*  #lfX*  *OUANT|T|£5*  »/« 

3  3VX#  *••  •  Ax,  'VAlUC  #RX#  'OFF f NED  BY*  ./#1X»  'NUMBER  OR  ELEMENTS  '* 

4  'TO  KF.  RfAH  INT0*.4X.**«,?X**0F*.10Xi*PTCMRT  ANO*  #/#lX»  'THF  •* 

5  'l\TEFFEHk.‘CE  VELOCITY  COUPLING*  «4X« *•• »5X» 'NOPTRM' • 10X* 'ROLLRT* ) 

• 

WRITE  (*  *23  )>£X 

Ff-nHAT (IX*  'MATRIX* X*  <NEX)«*«t2i2nx*  ••* */#3tX»  ••• #tX#  *1* •  7X« 

1  *T»4.T A  DOT »  PNf  OOT**/aiyf  MAXIMUM  ALLOWABLE  M*U«ER  OF  TRfH't 

2  6X, • •  •  ,hX,  »7X» 'THETA  OOT*P'I 

WRITE!  W*?4)?i|TF& 

•  fcr  ’*T c ix# •  i t) ration  cycles  «mter)«*#i2#ux#  ••• #SX» '3' #7x# 

1  •‘i.PM  DHT  *  •/•39X»  '•'#AX»,4»#7X#,0#P,#/#1X*  'AIRCRAFT  ELEMENT  •# 

?  'SPECIF If AT|r>,»« #7x* •••#/# 39X ••*•/# 2X# ‘ELEMENT  TYPE*#  7X# 

3  *f lE?T*.T 'it C* •••'#/# FX#  •NUUHFR  coof*.  ftX.'TVPE'*t2X»'«'»/«3xa 

4  • C | )  <KTYPE( I ) >*  #20X# ••••/#30X» ••• I 

CO  ?A  I»1#N 
K«VTYPt(|) 

H*FG!f«4«(x-l)#l 

!FN*)«4#C«-1>*4 

.  WR|TE(W«27)|tNTYPfAt)#(ELTYP(jTYP)#jTYp«IBCe|N»|ENO) 

'  FCR  lAT!3X.l?»AX#|?.*X.4A*.lX#'»') 

MinuiiA) 

FOR'*AT( /  •  tX» *CO*iTROL  COLUMN  Of F|N|T|ON  «COLDN*  O-  ••  NCtt*l)«S 

1  'NMHfP  OF  TMi  FIRST  ILt-' •/•  341. ••  MfMT  |*  C  ASSOCIATED  MVi 

2  *  A|R-*./.7X.*ILEMFNT  (SIC  INFOS-  I  SEE  INFCR-  •  CRAFT  «# 

3  *FlT  **F.'T  !*••/•  2Xt  '\UMPFR*  #AX»  *MaT|ON-B)  MaTION-O  •S/illi 

4  't '•10Y#'f.Tlt*l)'»AX*'WCtt#tt'«4X#*C*  NCC I #f )*TOTAL  NUMBER  OF  *• 
f  *C  ».U-*#/.3tX.*«  **EMTR  FOR  AIRCRAFT  ELEMENT  !••) 

or  3G  !•!•). 

•  wt«!T(  !kt3l)t*'  C<  !#1)#VC*  1*2) 

FCR  ’AT! «X* I?*11X* l2»ltX# lP#7X# ••• I 
*CA  f*LC*3 
M  VT»A 
WmITC(-.IC) 

WRITE!  ••3?>VUVT#NCA*T.NI**T#LC 

FO®v AT! ACX# *0*  T  HAS  '#fi.'  ELECTS#  TAXFN  FROM* •/•IX# *CEF|N|T*# 

%  •!-'  CF  T^r  TM/  ItfR^T  tO\* •  AX«  •  JX« |2*  •  CANDIDATE  ELEMENTS. •• 

2  *  |T!|)*#/,1X#*C0L»'^  T  ISFf  I vFORaaTICN-O)** #•*•••  NUMBFRS*# 

3  *  m  ^MFCIFIC  ••It#*  OF  THtSF*»/.3tX#*«  TO  RE  VSEO  IN  T«  TmE»# 

«  *  f A* LID Atf • #/»3YX» ••  flFMFNTS  COMF  FROM  The  »#|f#*  ROWS'! 

M 


WRITKS'JJ) 

FCRriTC?Xc«t|,FtrKTSllV«’V4lUFS14X**«  0T  C#  AM)  THE  TM»«  *, 

1  *FLl6KT  V4»*-',/,4j|,'|NM)lfi'()FMMi»«  lABLCS  ?M£TA  CE|TCM  •• 

2  •fc'Jll»*./,3x.*T',iSx.*|T*,lAx,*»  IKlDi  2*1  IHOLL  IULM  •• 

3  ,4f.CLEI*i/,JM,»»  AM)  V  (StDtSUF  VELOCITY),*) 

00  33  !•*•* 

VR)TCtW#3A)t»!T(|) 
fWKATOl.  HilMi  IMIliUi ) 


M(EL>A*t 

MfCTtLC-3 
irCTl\CT)Jt,i.»^A.2‘)3 
•  CC\Y|ur 

6?  tft  *51 


«  FONtiATl/'Slu'CO'JTftOL  COLUMN  0CEtN|T|0N  CC0LW  Cl-  I.  NCI|»|)«S 

1  •NUWif  •  or  T*  rtMT  Ilt-M/*3tX9U  MINT  |M  C  Af«0CIAVc? *1*-* 

2  •  a!*-*./#*x.*ui«fnt  (tcc  tiroK*  cm  ivn-  •  cnr*  •• 


3  'ItfriKT  1  •  •  t/tlX*  *NUMPft'*AY»  'mationhi)  MATION-C) 

a  •!’«sox*'»nt#s)’#Aii*«f«cfi#*tsn«*e*  ncu.i)«tctal  numtco 
)  *c  !if*i/isn»*t  n» to  warn  a|»c*aft  um*i  !••) 


•••/•lx* 
0T  •• 


or  sc  i»i.K 

WMHU«3t)t»»CC|#lli*CC|»|t 

rCRPAKUtiMliilMllitfiU****) 

nca  mco 

NUMM 


LRITCCtftlC) 

MIHUiSDNIKTilCl^illlMTite 
•  rr*KAT<4cx  “  *--*  -  —  *  - 

1  MON  c  “ 

2  #  fill 

3  •  m  __ 

A  •  CAM,  MAT* 


MiniriD) 

.  V(Hi»AT|)Ki*l^mT*,t1l|(VAlUr'«IA)i*«  or  c*  AM)  tl#  TlAfl  *, 

1  'ntcfrT  tAfeift  h?i  lore-  •• 

2  *HlLl-’./*3l,*T*,I%X#MY*#|Ai,*«  AHlDi  N|  («tll  C‘XtA  *# 

3  *A*,Cif  )**/,3AX#**  AMO  V  CStitKtr  VttOCfTVt.M 

00  IS  !«tf* 

XMtTCU«3A)t#tTC|) 

FOArATlSX# IStlSX# ||#|0lt*A* ) 


MCEL**«r 

Kttf CTtLC-3 

|r(tiri\0TI20l«20t*20S 

CO'iTIMr 

|F(  !So,t>Q»l)  60  TO  60S 
n  A*  C  R  •  UP  |  (  VKOfC  J I  •  1  •  NftMOT  > 

CC1\T!UC 

VP|U(w,37) 

ro^iT(t»«r,*VA|.Ul6  roo  TmOOF  WANOIOiTC  iicwnts  •S/#ix» 
1  *NoT  SrucTfO  rod  T  tt*C  tHWATlCN  •  ••/•SX#MTtO  o’* 

?  •  TwCSf  VALUCi  COSfTtilNTX  •••/.6X»«0N  TNI  TO  |  UK  INC  •# 

oo  3*  l*l#M OT 

•  tli|T|UiS«)  VtOTin  • 

'  fOK**6T(|ir«C|f •6«SSX«  1 

*  COKTIMJE 

C"  1*  lM#»t 


KTVP|e»TXOrJI) 

or  T6IXtO«tn*9S6*9SOI«KTTOf  . 

urri^o  Owid  |0PUT/M0|T|  vcotrv 
C0*f|*u 

iritou.ct.tl  60  TO  *04 

■fr  «.IMIIT|TUU.|I.M|,||| 

CO*»T|m  r 

AOtTfUf|eMTtnj(0*t»««ti#NI 

%t%nunf 

^mc. .mil 

»e6  in/.ti.i^iCK  citw«T  wmo  stt./i 
eo  Tf  606 


VRITf  <v«212HPKf 

FO&h#TCnx,«PS!  t*  *6X# •TmCTa  L*»*X.'fM!  l'.mi'4«M2Xi'$«»,/i 

1  •cwonn*  .UX.  «COO*  «10X»  •COl*  *10X*  *C02*  .10X#  UXCLO*  •/• 

2  HK.4#//.6X.»CAP  6ANHF9#  XX*  'BV*  *S0X»  *LANOA  WS 

3  10X«'Cv0SUX**CHAS/«H14.4#//) 

60  TO  230 

ACOOOVKAHIC  BOOT  !N*»UT/WNITF  VF.BIFV 
COKTtMiC 

|F(tBU.PQ.2l  60  TO  406 
NCBi<**100>(T|Tl|<K'i>#'Cil«20) 

COKTINUt 

WtITf«w#10MTITUCX.I>.K«l.20> 

nnumxo 

N|NTS(|)aO 


W*|Tf <W,22B>t 

FOMUTI/*SX*«VCM|C|J  CLBBFIfT 
|F(|BU»IB«2>  BO  TO  BOT 
CONTI  HUC 


S |t«/l 
# 


NFKClMti 

NINTBIDM  % 

kO|Tf  Ut2l|l)  * 

IONtlT(/*|||(V|N|eU  CtCNFNT  NUBBIN  Ml*/) 

|F(|SU«tO«t)  CO  TO  Bit 
NfBlllNtSOO)  I  FBI  J»  |  lijlttll) 

CQNT|Nt( 

FONIKVIM) 


i4|T»  «l*«t«MMfU*l)*JB|ttO» 

/ * JJ)  L9*0X#9PN|  t9*tOV**BN9*lft*9CN9*/* 

J  !?!29?9^9?!9 IP?*5  il1*9 #eoi*  9cot 9  *ioi*  9eot*  .m.  •  amcln9  */« 

!  Hl«.«.//.4|,9e*)  MNU*.  U«*MlM9l,*U>Ol  N9* 

3  tn*9C~CMil«*C"49*/»HH«4#//) 

•0  TC  too 


AFHODYNAKIc  BOtfY  INPUT/WRITF  VF*1FV 
COM!  WE 

trCtMJ.FQ.2)  r.0  TO  «0A 

PCA’  <h,100MT!TLE(K,I  ),K«1,?0) 

COM!  WE 

WHITE (w# 10) (TITLE* K» !  )*K*1»?0) 

•:PK(n»?n 

N!NTS< | )«0 
WH!TI(W.??4)| 

EOHmaTC/.i*. •VEHICLE  CLFHFnT  NUMBER  •#!*#✓) 

ir c !Rli«eu«2)  r.o  to 

HI  Ar  (H#30O)CP»f(  j»  I  )•  J«1«1A| 

com  Put 


k'HIT!  (W«2?7>(PK( j»  |  )# J*l«)4) 

EOi,  iTCH*#»P$|  ft'iTTi'TKTl  •  fVi'EHl  ♦ 10X* ' AH' • 12X» 'CO ' • /# 

X  bl1«,4#//.t0X.'Cl'.t?X.'C2'.llX#'CY0'#UX.'CVl'»UX# 'CIO'./.' 

?  SFl«.«.//.  tv* *CZl'*t2V« 'iH'f llXt 'CRO' »1IX» 'CHI' •11X* vCN0*«/» 

3  IVi'CM'i/«U4,4|//) 

uO  TO 

roT(:*i  pri'T/KMiu  vfrvfv  . 

CC\?|W 

IMfSil.l  4.21  r.o  TO  «Q* 

nr A  (»  •1P'M<TlT|E<«,!t,<«i,20) 

C<**  M’.U 


140 


WRITECW,10)(T!TUCK.P.K»1,20) 

HPK( | )>?Q0 
N1NT$(  J  )»3 

WR|TF(W,23j)! 

FCRtAT</.lX.*VfcM|CLE  FLFHFNT  NUMBER'  •  I2»/l 

|F(  IhW.r  Q,?)  r,0  TO  *0* 

PFAr*Cw#1  JP)(  |NTf»C  j#  I  ) • J»1 «3) 

COf.'Tir-LF 

V«ITEIW,232)(IMT»(J.I >,J«t,3> 

FCM»iATUX.*\UMW-R  PF  »A0IAL  STATIONS* « !*•//• 

1  lXt'wirwni  or  azimuthal  integration  elements  ».|2.//# 

2  ix.'nower  of  point  MASSES  '  1 12* /) 

I F c  tsu.r Q.2)  r.o  to 

RLAfjCR#  30n)(PK(  J#  I  )•  J*1»?0) 

CO\TI«ljr 

KF<1T|.(W(?33)(PX(  J,  I  )•  Jalt?0) 

•  FOW:AT(  ?X.*O'nr.A*#llX.'«0*.l2X»*B4*#l?Xt  *01*  *2X» ‘DELTA  0*./, 

1  5fcl4.4#//,«*.*PELTA  1*.XX,*0F.LTA  2* .7X#  *DF.LTA  3*.7X.*TMETa  t*# 

2  10X»*K*./»hfl4.A,//#AX.*SMALL  «'»7X#*SMALL  A'.AX#*P8I  R*#AX# 

3  *TmETa  F*.r»X.*PHI  »**/»hri4.4f//,2X»*BLA0E  NATURAL  BETA  0*# 

4  BX.'RETA  DOT  0'»AX##OF.TA*,AX#*META  OOT*  •/•SX»  *FRFQ.  0VER'.3X# 

b  MpSTJWaTCU)  «E*TIMaTFO>  PERTURBATION  •• 

6  *PFfcTU«>bATtON' 'OHFGA  CPIS  ax*«(roe>*»  tx»*tnooE>s  *x# 

7  MPBIS  9x#  •CHDO)*  •/•5F14.4*/) 

V»IH(W*239) 

FORmaT< | X»*ntSTH|RUTE3  «LAf)F  PROPERTIES-* •//•«X, •BLAOE* *«2X# 

1  •FlkST*#/.3Xt'MATlON  Of STRJRU-1 *tX*  *RAOIAL* »3X» *  INITIAL* • 

2  SX,'FtAPrr.C*./*AX.*NWHHFR  TSO  MASS  0 1  STANCE  '•  S*  •*  SHAPE  •  • 

3  3x#*r;C',ESMAPF*#SX**C**0R0*#/> 

VKS«lMf.(l(U 
no  74o  • 

ISTiKTMfH 

irv«i?4^ 

irdSli.rQ,?)  r.o  to  ni 
READlR*300)(PP(%|f  I )»  J*!8TaRT»iEnO«70) 

CCNTIMir 

WRIT!  Ue237>X.(PMj.!>.J«ISTAAT.lCW0.20> 

F0RHAT(SX*I?«3X«Sil7*4) 

CONTINUE 


1?1 


•  CONTINLF 

WRITE«W,232><!NTS(J.I>,Jtt,3) 

•  FORMAT! IX, 'NUMRFR  or  »A0lAL  STATIONS* * !?•/✓• 

1  tX#*fHi*iHFR  or  AZIMUTHAL  INTEGRATION  flfhents  *  #  12#//* 
c  IX.'Nl/'NER  or  POINT  MASSFS  *•!?»/) 

|F(  lSll.f  Q.2)  f.o  TO  Ain 
RU ;CR.30O)(PK(JiI ).J«1.2n) 

Cn\TlfJtr 

v  h  !  TL  C  t* » 233 ) !PK( J» I ) * J»1 ,20 ) 

•  FOV  AT ! ?X,  'OMEGA *  »11X.  *R(1*  •  l2X»  'BA' *12X,  *B9*  »*X*  *OELTA  O'./, 

1  5fci4.4,//,SX.'PELTA  l'.SX, 'DELTA  2'#7X.'OElTA  3',7X,'THfTA  1', 

2  10X,'R',/,**F14«4,//,AX,  'SHALL  R'i7X, 'SHALL  A'.AX.'PSI  R'*SX, 

3  'TwETa  ft'.nx.'pHi  r',/,5fi4(4,//,2x, 'Blade  natural  beta  OS 

4  nx.'RETA  COT  0'»AX,'RF.TA',AX,'META  DOT'»/»SXi'FRFQ.  OVER' ,3X, 

•>  ' (w ST | MATED!  CESTImaTFO!  PERTURBATION  '• 

6  'PFKTiiBitATl0ri'*/*6X,'0MFr.A  CP)'»  6X» 1  (ROE ) '  *  9X,'(BD0E>'»  9X» 

7  ' (PB )  •  ,  9x,'(KlD>'*/*5F14.4,/) 

WRITE! rf, 235) 

•  FON'iATCJX,«niST«lBUTEO  BLADE  PROPERTIES-*  *//»4X.  »BL*OE'  »42X, 

1  *FtkST',/,3X. 'STATION  OtSTRIMJ-' ,3X,  'RAOIAL' »5X» • INITIAL' • 

2  5X,'FL/PP|N6'»/»4X*'NUMMrR  T|0  MASS  DISTANCE' »3X, 'SHAPE' , 

3  5x, • KC'ESmapF ' • 5X , • CHORD ',/) 

•|W5«!NTMl,t> 

DO  240 

ISTaRT«4W»K 

ir\M»l?94X 

irdSu.rQ.2)  GO  TO  «U 
REAn(K,30Q)(PK(j,!),j>jSTAftTftEN0»?0> 

CGVTIMjF 

wHIir (w,?37)K,(PR(J*I),J«!START,IENn,20) 

FORMAT C5X,!?,3r,SEl?«4) 

CONTINUE 

f:PM«lNTSC3,f  I 
JF <nPM) 243, 245,244 
CONTINUE 

WRITE CW,24f)  • 

•  FOR*  AT!/. IX* 'POINT  MA8SF8-S//*4X,'SLA0E',42X« 'FIRST', /,3X, 

1  'STATION' ,  17X,  'RADIAL*  «5X,  'INITIAL '»3X,  'FLAPPING*  #/#4X,  'NOH0IR'  , 

2  AX, 'MASS' ,*.X. 'DISTANCE' ,3X, 'ShaPF' *5X, 'MODE SHAPE' »/> 

or  ?4»:  <«1,»*PM  • 

|f*T  *NT  » 149*> 

If 

jrc  IS4  .»  0.?)  GO  TO  *12 

Wt  A'  (H930D)(PMJ,I),J«|STaRT,1EM1*10) 

•  f.rNTt?.i.r 
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WH!TE(v«237)K.  CPKC  J»  I )  •  jafiTART#  IEN0#10> 

CONTINUE 

CONTINUE 

WR|TE(W*24f ) 

FORMAT! //I 

CONTINUE 

IF(|SU.EQ.2)  r.O  TO  A13 

REAO(R.130)CXFLC!).VELU).2ELC|)»I»1.N) 
RFAn<R#l30)(C<A<!#J#K># J«l#6),I«t.4)#K»l.N> 
FORMAT  (At  10.0 

REAQ(Pfl40)(  |X( I )»JX(| )#X< I HEX) 
FORMAT! 2(?| 10* F10*0 ) ) 


NKEL*6a« 


RLA0!H*12P)!TE! J)» J*lt A) 

RE  A»)  C « .  120 )  C  WF  <  J )  #  J«X .  M*EL> 

RE  AO  ( R  •  1 20 )  •  XC6  •  VC6  •  ZCC  •  TA  t  •  RMO  •  P8 1  DOT  •  RTCHRT 

REAOCRi120)ROLLRT*HOOT#  C  <ft|HRTA<  |  •  J>» 

RF.  AC  J  C  H  •  120 )  PT .  PV  •  PVOOT  .  PF .  PTC  •  TACRT  •  MACRT  •  BACRT  •  ODACRT 
FORMATfNFlO.O) 

CONTINUE 

WRJTKWiZWl 

FOfcHATdMl, •GEOMETRIC  LOCATION  Of  TmE  ELEMENTS  M|Th  RESPECT  TO 

1  *Twt  CVERAI  l*  */»lX. 'VEHICLE  AXIS  SYSTEM-* •//•4X» 'ELEMENT* ./# 

2  4X#,NU,U»rR».l4X*,XSt3X*»V*#i3X»,2#*/> 

DO  237  I»l.rj 

WM  JTKw  »?•»§)  I  *XCL<  1  )»VEL(  U#ZEL<!  > 

FORMAT!  AX#  t?#AX#3E14«4) 

VW!TECW#2A0) 

fORMATI//*x#*  INTERFERENCE  VELOCITY  CHARACTERISTIC  AREA  •• 

1  *MaTR|CLS-*#/> 

00  ?AS  |UiH 

WRITfc(M#2A2HTlTLC(K#t  )#Kal#tOI#  I 
F0E*tAT(/tiXil«A4»/iiXilA4ilX(*EUNENT  NWRIRMti/) 
tfRlTE(V#2A4)(t  A(  J#K#|  )#Xai#i)#jai#A) 

FORMAT! IX#  ATI*. 41 


M.A  («,ur  HX'Lf  I  >*VEL( !  I.2KL*!  )#!»1*N) 

RFAn(Rfl30)(((A(!*J»K)* !»1.6).K»1#N) 

rok,i4T(6M0.0) 

4 

ktAM(Ptl4n)(lX(l),jX<t)«X<!><T«i«NEX)  •*  , 

POM  UT(2<?un.F10.0>>  r\^vV 

NK£.L*6«*  ^0' 

R»  Ar»( P#l20)(Tfc(J)» J*1 » A ) 

Rf AM(R»l20)(wr(j)» J*1*MX£L) 

PL  AH  t  U ,  1 20 )  •  'T .  XCG  •  YCG  •  2CC  •  T  AS  •  RMO » PS  |  DOT  •  PTCHRT 
PI  A!»(  P#  120  IkOLL^l  *H*'OT •  (  (QJMRTAl  l»j)»|*l«3)fjsl*3) 

R!  AhCR,l20)M.PV.PV00T,PF*PTC»TACRT»XACPT»H/CPT#B0ACRT 
PORrAT(HFlO.O) 

CONTINUE 

WR|TC(W«2^I 

FOSimATUmI  .  'GEOMETRIC  LOCATION  OF  The  ELEMENTS  W|Th  RESPECT  TO  •• 

J  *ThI  CVFPAIL'»/*1X»*VEH|ClF  AXIS  SYSTEM- •»//»4X» 'ELEMENT* «/f 
?  4X.,MU-|‘rR».l4X.*XSlJX#«VSl3X#  •!••/> 
po  ?S »*/  |«l.r, 

»  '<lTt  (»»•?!>«> I *xa<  I  >«VELCf  l«ZFL(n 

FORMAT! AX# |?#f X*3ri4«4) 

WK|TMh»2Afl) 

K)n-  ATC//1*,* INTERFERENCE  velocity  character  I  St  I  c  ARIA  •• 

1  ••’iTH|CLS-S/l 

IM.M 

wuin(bt2A2HTITLC(X»ll»K«1.20M 

FQk  AT(/»lX«lNA4«/9|X*tA4aSXa •ELEMENT  NUMkC*' • I?»/> 

V'UTI  A(j.x,l  ),K«l,A),J»l,A) 

F'Jk  AT ( IX #M  1?»4 ) 

#*.  JT|  («•?**>(  »*c  J>#  J«f  J)#X(  j)#  J»l*LrX> 

F.ic  AM  l*<i ,  •  ▼L'N  PRP^Ci  VELOCITY  coupling  NATP|X*X-%//*iOX# 

2  *  |  ••lix*  *j'«AX«'XI !• J)v«//«(fX«|P«lOXt|P#ElS«4H 

r«vj  AT|/.i*.»r&T|RftTEO  trim  COL»»nn  (TM-'.//#14X«9R0V  NUHRCR  €  I  • 
J  c ?)•,/.» 17X.|P.1AX#I  IP.4II 

•  «|U**»?7?>  • 

I  -  ATC/.2*,'HT|f?iTf>  |NTl**’FP4f  \CF  VELOCITY  COlUMN  Ofl«'i//» 
•.•.•v|MTrtr*,/#lX**Fll^NY*«/#FX*#llUM0fR*t4X#«|IN»#  tXt'W't  •«# 


r«* 


♦74  t«*. 


!STaHT«AM!-1>*1 

!E\l?»!STi«ST*S 

WHITE  (W.^7*»)|.(WE(J),J«|ST4»T.|FW) 

FORMAT («X# I?*2Xi6F11.4) 

WRITE(W,27>) 

FORMAT (  lHl.’TRlH,  PRORLFM  DEFINITION*'  »//.7X»  •CROSS*  »51X. 

1  » IMHTJAI*  #/»7X#  'UFlftHT*  ,10X#  •XCP.»  .11X.  *YCR*  illX.  *ZCG'  .10X, 

2  •Sr*FEr*l 

WR 1  Tf  ( k  1 27»  )  WT  t  XCC  •  YCO  •  ZCC  *  7  AS  •  RMO  •  HS I  DOT  •  PTCHRT  •  ROU.OT  •  HOOT 
fOH'lATC  1X*>F14  •  A#//#9X#  *RMO*  •  OXt'PS!  DOT*  »7X»  *PTf.MRT'  **X» 

1  'ROLLRT • •  9X»  *H  OPT*  */«5Fl4t4#/) 

VH|TEC W#27v>  C COINRTa( J#K) #K*1 #3) # J»l*3) 

FOR  1ATC  9X#  •  IXX*  •11X(  •  fXY*  ,UX,  •  JXZ*  •  11X.  •  JYX* .  UX.  •  1  YV» , 

1  /iH14.4i//i  tX.'|YZMlX,MZX*#UX.MZTSUX.MZ7,»/»4E14,4»/> 

VR !  TF  C  «•  •  2  AO  JPT  #rv .  pVQOT .  PF .  PTC  .  TACPT  •  WaCPT  .  *•  AtPT ,  ho ACPT 
FORMAT!  1 X ,  •  w  j SCF LL A’C^HIS  ! TrNR* • • // . 7X. •  Pf RTUR& •  •  7X •  •  PERTURB •  *  7X 

1  •PrRTURb*.7X.*PEPTURR«i7X,'PFRTURB'./.lOX.»Tf.l3X.#VSUX, 

2  *V  b01MlXi,rM3Xi*c,i/K14,4i//i9Xi'ACCEFTMXi'ACCEFTMX, 

3  * ACCEPT ' tRX* 'ACCEPT* •/«|OX« VTV »13X« *W' #12X» •BETA* • 7X» *RETa  DOT* 

4  /•4Fl4t4f/| 

CO  to  fM 

COXTlNtC 

VR|UIP*310> 

FORMAT  C1HP.  IX*  *t»T|MAT|D  A  NO  COMPUTED  VARIABLE  COLUMNS**  */#2Xi 
X  'Rnw*./.?X.*P0.'**X#*C0*,  OX# *Tt*»  tX»*N*i  tX.*RO*»  OX#*P  *, 

2  tX»*RT*,/| 

|lNll»A 

|F(tC.CT.A)ICKO«LC 
00  310  |»l*fF’<n 
irCf.CT.A960  TO  313 

kft!HUa3t«4!*CQM>*TFC!}vM<t)'ttft>*Pf!>'ftTf!> 

FOR*' AT  I  ?X«  1 2«tX«#F  11  *4  9 
CO  TO  3t» 

M)T|l»i3l4)|.CM|) 

CWT1H4 

t*tnu,3t*> 
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SUBROUT  I  ML  VELCTY<T#VNOT,S.NO!RCT>SPHl#CPHl#STH»CTH> 

THE  INOUX  NOPTRM  INDICATES  WH!CH  VARIABLES  ARE  REPRESENTED  BY  THE 
GIVEN  QUANTITIES  PTCHRT  AND  ROLLRT 

NOPTRM  QUANTITIES  REPRESENTED  BY  PTCHRT  AND  ROLLRT 

1  TMETADi  PH  ID 

'/  thetad#  p 

3  GiPHID 

4  Q»  P 

NDIRCT«n  TOR  FO«WARO  FLIGHT  AND  X  FOR  BACKWARD  FLIGHT. 

D I  Ml  NS l ON  T ( 6 ) #  VNOT ( 9 ) , SE  F { 3  >  *  S ( A  I 

COMfON/r.PEC/wT.XCG,YCG,ZCG.TAS,RHO, PSIDOT# PTCHRT, ROLLRT# HOOT, LC. 

1  NOPTRN, I T<  6  > • Q I NRTA 

DETERMINE  THETA#  PHI  AND  V. 

IF(nOIRCT,eG.O)  QDIRCT«1,0 

I F  ( *;0 1 RCT  . ED .  1  >OD  I  rfCT»-l ,  0 

JNOT«LC-3 

DO  10  1*1.3 

NFL*LC*4-i 

DO  S  J«1»A 

I F ( IT(7-J),ME.NEL)  go  TO  3 
SEE < I >  *T ( 7- j  > 

GO  TC  10 
CONTINUF 

SIE( I )*VNOTC JNOT) 

JM0T»JN0T-1 
CONTINUE 
V*SFE  < 1 ) 

P»«IbSFEC2) 

TheTA«FFFC3) 


TEST  TC  SFE  if  theta  IS  WITHIN  PLUS  OR  MINUS  9q  DEGREES. 


ATMsAbS(THfcTA) 

IK  aTh-1. *700 >225. 220.220 
CTV*5ICf.  ( 1  . *700#THFTA) 

THLTA»CTV 
00  223  jt t  # 6 

I F < lT< J) .NF .LC*1 >  CO  TO  223 
T  <  J )  ■THETA 
CONTI NLfe 
WMin(6,224> 

F0RMAT</#1X#»VELCTY  HAD  TO  CHANCE  THE!  VALUE  OF  THETA  BECAUSE  *# 
1  MT  WAS  OUT  OF  THE  PLUS  OR  MINUS  90  DECREE  LIMIT* »/> 

CONTINUE 

TEST  TC  SEF  IF  PHI  IS  WITHIN  PLUS  OR  MINUS  90  DECREES. 

APH*  A*3S  (  PH  I  ) 

IF  <  aPh-1 ,57>235#230»230 

CTV«SIGN(1.57»PHI )  , 

PHI«CTV 
00  233  J«li6 

IF ( |T( J > • ME .L C^2 )  CO  TO  233 

NEL*LCK-I 

DO  5  J«liA 

IF < |T(7-J).NE.NFL>  GO  TO  5 
SEF.(  I  I*T(  7-j) 

GO  TC  10 
CONTINUE 

SIM  I  )«V'NOT<  JNOT) 

JMOT* JNOT“J 
CONTINUE 

v*sri(i> 

PH  I *SFF  <  2  > 

THETA«RHE(3) 

TEST  TC  SEE  IF  THETA  IS  WITHIN  PLUS  OR  MINUS  90  DECREES. 

A  TH* AbS (THETA ) 

IMaTh-1,?7O0)225»2?0»220 
CTV*SlC'i(l  .b700»THFTA) 
theta«ctv 
CO  223  j«l,6 

IF( I T ( j),NF .LC*1 >  CO  TO  223 

T< J)*Thr TA 

CONTINUE 

*P|TU6,224> 

FOR'AT(/»lX i *VELCTY  HAD  TO  CHANCE  THE  VALUE  OP  THETA  BECAUSE  *. 
1  *IT  Was  OUT  OF  THE  PLUS  OR  MINUS  90  DECREE  LIMIT* ,/) 

CONTINUE 
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Tt ST  TC  SPF  IF  PHI  IS  WITHIN  PLUS  OR  MINUS  90  DECREES* 

APH«A(iS<PHI  ) 

IF ( APw-i *57 123^1 230 i 230 
CTV«S I GN C 1 . 57  # I  MI ) 

PHl«CTl 
DO  ?33  J*  t » ft 

I F  (  |TCj)iNE.tC^2)  CO  TO  233 
T< J)«PH! 

CONTI.W 
*Tv I TE  <  ft  1 234  ) 

F0R'AT(/,1X, ‘VElCTY  HAD  TO  CHANCE  THE  VALUE  OF  PHI  BECAUSE 
1  MT  WAS  OUT  OF  THE  PLUS  OR  MINUS  90  DEGREE  LIMIT*#/) 

COM  I  %E 

CALCULATE  SINES  AMD  COSINES  OF  THETA  AND  PHI, 

Sf  Ml«SP  (Pul  ) 

CPmI»CCMPhI  ) 

STH*S!MTHETA) 

CTh«COS(TheTa) 


SET  U,v  AMD  w  TO  ZERO  IF  THE  SPEED  IS  ZERO  (CASE  1). 

the  test  FOR  equality  between  non-integers  may  not  be  MEANINGFUL 
I F ( T  AS  *  ME  *  0  *  0 )  GO  TO  ?45 
U*0,0 
V*0 , 0 

w  s  o ,  0  • 

CO  TO  450 
CONTINUE 

CALCULATE  U,V  AMD  W  DIRECTLY  AS  FUNCTIONS  OF  HOOT.  PHI  AND  THETA 
IF  THE  SPEEn«HOOT  (CASE  2>, 

AHO«AHS(HncT) 

I r (  AHLi-TAS)250t?47,250 

UsSTH#h-)OT 

V*-SPHI*CTh*WOOT 

w*-cfhi«cth«hoot 
GO  TO  450 
CONTINUE 

COMfUTE  C  AND  H-SOUARED* 

t 

RPCl*SSRT ( TAS**2-wCMT«»?) 

C«(V^SPMl«cT*4*NnOT)/R!>CL 

RSGo»ePHj##;ucsPN!«STw)««* 


DfcTfRMINE  WHETHER  THIS  IS  CASK  3  OR  4  ( DEPENDING  ON  THE 
RELATIVE  SIZES  OF  C-SOUARED  AND  R-SOUAREO). 

IF(C##2,GT #RSGO)  GO  TO  273 

COMPUTE  CCY  AMO  SCY.  LEAVING  V  UNALTERED  (CASE  3), 

R0CL2»tif,IRcTtS0PT(RSGD-C*o2> 

CCY*(  R0CL2«»CPHI+C#SPH  J  *STH  J/RSQO 
SCY i ( -C»CPH I ♦R0CL2*SPH I *STH ) /RSGD 
GO  TO  290 

COMPUTE  CCY  AND  SCY  WITH  THE  REQUIREMENT  TO  CHANGE  THE  GIVEN  VALUE 
OP  V  (CASE  4). 

CONTINUE  '  ' 

CAPR*SQRT ( RS3C ) 

:  L  •lU’t  i  #  *  I-  :  -  L  T -*  C  ♦c  ^  AS  K*CTi;‘S  ;.r  »*-•,  »n|  a\0 

i«  •,».  r  "*?  crA«*  2i. 


AM'jiAl'K^TT  ) 

I r ( £*«;  -ta‘  )?!>:, ?47,?5n 

,  f-si  J  •C^"«h''CT 
•  i-'Sfj^CYfr.^OCT 
GO  TO  450 
CONTINUE 

COMPUTE  C  AND  R-SQUARED. 

RnCL«SQRT(TAS*A2-HDOT«*2) 
C* ( V+SPH I »c TH*HOOT > /R9CL 
RSQD»CPHl*«2^(SPHI*STH>*«2 


DLTCRMINE  WHETHER  THIS  is  CASE  3  OR  4  (DEPENDING  ON  THE 
RELATIVE  SIZES  OF  C-SQUARED  ANO  R-SQUARED). 

!F(C<**2.GT.RSOO)  GO  TO  273 

COMPUTE  CCY  AMD  SCY,  LEAVING  V  UNALTERED  (CASE  3), 

•  • 

RDCl2^OIRCT»S0PT(RSQD-C*»2) 

CCY»4PDCL2«CPH14C«SPHI»STm)/RSQ0 
SCY  »4 -C«CPh I ♦ROCL2aSPH| aSTh ) /RSQO 
GO  TO  290 

COMPUTE  CCY  ANO  SCY  WITH  THE  REQUIREMENT  TO  CHANGE  THE  GIVEN  VALUE 
OF  V  (CASE  A). 
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CiWlrifc 

CAPM»5r,^T(RS3D) 

r*'PlHCT«CAPR 

CrYr{C«fiP(,I«STM)/RSCJO 

SCY**(C#CPhI  )/RfiQD 

COMPUTF  u.v  A*0  W  for  cases  3  OR  4, 


CC\'TJNUr. 

U*(C^H»CCY)*RtlCL^<STH)«wnOT 

Vs  ( 'jPn I  »STh*CCv“CPM I  #SCY  )«R0CL"C SPM!  #CTH  )*HD0T 

k=(<iPHl»KCV^CPH!»STH#CCY>*RnCL-(CPH!«CTH>#HDOT 

C0M1MUF. 

Pt  T|-  RKJK-E  p  q  a^D  K, 


| F (  N0P7RM 16  0 , 3  # CR  t  N'OPTRM,PQ, 4  )Q>PTCMRT 
IF  C‘iOPT«M.LO.?.OH.Mr>PTRM,FO,4)P»ROi.LRT 


IF(NOPTRM,Ff5,l,  ORi  VOPTf?M,FQ,3  )P*ROLLRT"PSlDOT*STH 

^psKriia^ 

S  < 1 >  *u 
S  <  2  )  *V 
S  C  3  )  *  W 


S<4)«p 

S<b)*A 

S<6)*H 

RETURN 

END 
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SUBROUTINE  COMTRU<TiVNOTiC> 

DIMENSION  T<6)#VNOT<9),C<12> 

COMIlON/SPtC/V-T#XCO#YCf.iZCG#TAS,RHO»PStOOT#PTCHRT#ROLLRT»HDOT,LC. 
1  NOPTRM,  IT(6)iC1INR7A(3,3> 

FILL  OUT  THE  COl'TROL  COLUMN. 

jriOT  *1 

00  1&  I  *1 iLC 
DO  4  J«l#6 

IF <  H(J).NE.I)  GO  TO  4 
C< I )«T(J) 

GO  TO  14 
CONTINUE 

C< I )«VN01( JNOT)  ' 

JNOT«JNOT*1 

CONTI  ML fc 

COUTINL'F 

RfcTUnrf 

END 
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SUBROUTINE  WASH( VA , VI  ,VlDOTiF,W»X, IX , JX , AiNEX ) 

DIMENSION  VA(48)#VlM*)iV!OOT(46)»FMS )»W(4«) 

DIMENSION  X<500>» I X< 500 > ,  JX< 500 > » A< ft , 6 , 8 ) ,D< 48 ) 

COMMON/ I MJECS/NCC  « #  2 ) , nTYPE < * ) i NTHRU< 8  > , N# NPASS»  NDJRCT,  NEX, niter 
COMniOn/SPEC/wT,XCG,YCG,?CG,TAS,RHO,PSIDOT,PTCHRT,ROLIRT,HOOT,ICi 
1  MOPT»Mi IT(6)»0INRTA(3i3) 

NELW«8«k 

DO  2  *»1iNEL'4  * 

W(K ) *0  1 0 

FACT*1.0/(2.0*RHO) 

CO  10  1*1, N 

AWr,«VA(  !\tiE+D**2*VA(  IN0E*2)**2*VA(  IN0EO)*»2 
VAT«S'.,J,T(  ARO) 

CO  b  j«l»h 
MJ«IM<K*J 
o<Nj)»r.  .o 

The  Tf  ST  row  FflUALJTY  BETWEEN  NON-INTECERS  MAY  NOT  BE  MEANINGFUL, 
IF(VAT,L3.0.0>  GO  TO  5 

CO  4  K*l,6 
MK* 1 N"E 

D(nj>«£cnj)-(A(J#K» I )#F<NK)»FACT )/vat 

CONTINUE 

CONTINUE 

DO  20  LEX«1.NEX  • 

1 8 1 X ( LEX  ) 

J8JX(LEX> 

FACTOR«X<LEX) 

W C 1  )«'w(  I  >^FACT0R*0<  J) 

RFTURN 

END 


188 


SUBROUTINE  FCERODt S# SPHI iCRWl , STHi CTH#FRQD ) 
DIMENSION  8 C 6 ) » FRQDC 6 ) 


lCNOPTR«flTU^O!NKrIfj,'j?0'T‘8,RHO,PS,DOT’'‘TcMRT>l,OI-LHT, 


HDOT 


0MASS«WT/32.2 


UCC*S( 1 )  +  ($( 5 )«2CG-R( 6  )«VCG ) 

:« \  j  *{ s ; ;  j»«c-s  <  4 

Sr?.?  J  +<S(4,*YCG-8<S>*XC6) 


PCG*S( 4 ) 

QCG«S( 5 ) 
RCdSU) 
XCGP0D«4.WT#STW 


u  --  ’T2*RCC 
Q^f;R«7i#PCr,-T3#PCG 
QNCGf'*T2*Pcr.-Tl«aCG 
FROD(l)«xr,GMan 

F  WOf’)  ( 2 ) »  yCf:rs'QD 

FPG0(3)»ZCG^Gn 


RETURN 

end 


SUBROUTINE  FORCMK#NOPT»VA#V1»VIDOT#C#FR#PK# 1NTR) 


IF  nopt«i .return  all  new  elemfnts  OF  FR.  IF  N0PT»2»  return  only 
ELEMENTS  FRC6K-S)  TO  FRISK)  •  K  IS  T*E  ELEMENT  SEQUENCE  NUMBER. 


pi  MENS  I  ON  va(48)»VI<48)#V!  HOT  ( 4  8 ) » C< 12 ) *  FR( 4  8 ) 
DIMENSION  PK(250#8)#  INTSUOi®) 


COMMON/PMVSCS/P<250)#INT6<1O)iMPK<8)jNINTS( J)  k,-v  WITBO 

COMMON/  INfJEC.S/MC(8 »?)  iNTYPEI  8) iNThRUCS)  #N»NPASS#  NDIRCT.NEX.NITER 
COM 'iCN/ulOmST/IOHIST,  BETA  <  50  .MiBETADTC  50.8) 

COIMON/nEHOO/NOXS 


lF<r,CPT,E3,5i)GO  TO  550 
DO  47b  1*1# M 
NFAHf'iM  K (  I  ) 
NFAU1«MNTS<  I  ) 


DO  */6  IE  AflslifFARP 
P(IFAR)«PK(IFAR#I) 

IFINFAR] )27.29#?7 
CONTINUE 

DO  JF AR*1. NEAR! 

INTG< JFA«)»INTS( JFARi  I  > 

CONTINUE  • 

IFCNTYPEC I ) -2)25 » 50 i 75 
CALL  L I F T( I tVAfCfFR) 

GO  TO  4b0 

CALL  MCOY ( I  » VA  #FR ) 

GO  TO  400 

CALL  RCTO«( I »NOPT.VA#VI»VIDOT»C«FR> 


CONTINUE’ 

pO  456  IF  AR*1 »  MFAPP 
PK ( I F  AR i I >*P( I  FAR ) 

I F  ( f)F  API  )  457  »  475 1  457 
CONTINUE 

DO  45^  JFARs1#NFARI 

I  NTSC JFARi I  )«INTG( JFAR) 

COATINUE 

GO  TO  1200 

CONTINUE 

NF AWH*\PKCK  ) 

NFANI*NPTS<W) 

CO  626  IF  AR*l  if'FAPP 
P( IP AR)«PM IFARiK) 

IF  C  FAR!  )6?7,629,A27 
CONTINUE 
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DO  JFAR»l,NFAPl 
!MTC( JPAR)BIMTS( JFARiK) 

CONTINUE 

IF<NTYPMK}-2>6?3,650,675 
CALL  LIFT<K#VA,C,FR> 

GO  TC  noo 

CALL  UCDY(K#VA#FH) 

GO  TC  100P 

CALL  HCTOF(KiNOPT#V4iV1 iViOOTiCiFR) 
CONTINUE 

00  736  IFARbI.MFARP 
PK( IFAH# K )bP( I FAR ) 

IFdiFARJ  )7S7#  1200# 757 
CONTINUE 

DO  75A  JFAR*l#MfAR! 

INTS< JFAR,K)«1NTC< JFAR) 

C0\TIMJF. 

CALL  MC».  V(f,VA#FR)  ' 

GO  TO  450 

CALL  RCT()P(  1 1 NOPT#  VA»V1  iViftQTiCiFR) 
CONTINUE 

DO  456  IFaR»1.NFARP 
PK(JFARiI)«P(1FAR) 

IF(i,FARI  >457, 475, 457 

CONTINUE 

DO  43A  JFAR«1#NFARI 
I‘iT!i(JFAR,I)*INTC<  JFAR) 

CONTINUE 
CO  TO  1?00 
CONTINUE 

NFAW»«NPK(K) 

MFARI«MA.Ts(K) 

CO  f,2t>  IF  AR*t,NFARP 

p(  If  aw)*pk(  i,'ARiK) 

IFd  FARI  )6?7,629,A27 

CONTINUE 

fO  JFAR«1»MFAPI 
IMTnl JFAR)«INTS< JFARiK) 

CONTINUE 

IF  (NIYPE.U  )-2  >625,650, 675 
CALI  L1FT(K*VA,C,FM> 

GO  TC  moo 

CALL  liCOY  ( K  ,  V A  , F-  K  ) 

GO  TO  moo 

CALL.  KOTOR (KiNOPT,  V4,VJ  iVIDOTiCiFR) 

CONTINUE 

CD  756  IFAR«1,NFARP 
F*  K  C  I F  A  H  ,  K  >  s  F»  c 
I F ( NF  AR I ) 757 , 1 200 , 757 
CONTINUE 

DO  7 5 r.  JF AR«1 , NF'AR I 
I  NTS! JFAR, k>*INTC< JFAR) 

CONTINUE 

RETURN 

end 
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SUBROUT  I NE  MTX AOO ( A . B • C • NRtNC • NRD ! MA • NRO 1 MB • NRD ! MC • NCODE > 

This  MATRIX  addition  SUBROUTINE  ados  or  subtracts  b  to  or  from  a 
to  Vltto  C.  PROCESS  IS  ADOITION  IF  NCODF  tS  1.  SUBTRACTION  A-B«C 
OCCURS  FOR  NCOOE*?. 

DIMENSION  a  <  NRO 1 MA • NC ) » 8 ( NRO I  MB  *  NC ) » C  ( NRD I MC #  NC ) 

IF(MCOOF.F0.1)GO  TO  10 
00  5  I«1»NR 
DO  4  J«1#\C 
CdiJXAtl,  J)-B(I.J) 

•  CONTI  Nut 
CO  TO  20 
»  CONTINUE 
CO  l*  l«l#rjR 
DO  14  j«liNC 

C< I«J)«A( !»J)*B(I*J>  * 

CONTINUE 

CONTINUE 

RLTiJRN 

ENO 
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SUBROUTINE  MTXMPVC  A  •  R  .  C  •  N'RA  •  NCA  •  NCB  .  NROIHA  .  NRDlMB 
1  .  NROIKC  ) 


UTRIX  MULTIPLICATION 

A(  NRa  »  NCA  )  •  B(  MCA  •  NCB  )  •  C<  NRA  •  NcB  ) 


this  matrix  multiply  subroutine  is  a  general  routine  and 

COMPUTES  THE  VECTOR  INNER-PRODUCT  ACCUMULATIONS  IN 
DOUBLE  PRECISION* 


REAL  A (  NHPIMA  .  NCA  )  i  p<  NRDIMR  .  NCB  >  #  Cl  NRDIMC  #  NCB  > 
DOUHLE  PRECISION  TEMP 


DO  10  I  «  It  NR A 

DO  10  J  »  If  NCB 

TLUP  ■  0.0 

DO  b  K  «  1«  NCA 

TLMP  ■  TEMP  ♦  A C I . K )  •  B(K.  Jl 

CUi  J)  ■  TFMP 

CONTINUE 

RETURN 

END 
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SUBROUT ! NL  MAT I MV ( A.NA,N*OET# I  RANK) 


this  subroutine  inverts  the  n  by  n  matrix  a  and  stores  this  inverse 
IN  The  Same  storage  location  originally  occupied  by  the  ORIGINAL 
matrix  A,  NA  IS  The  DIMENSION  for  a  specified  in  the  main 

PROGRAM.  The  PARAMETERS  N#  MA*  AND  THE  MATRIX  A  MUST  OF 

specified  before  the  subroutine  is  called,  subroutine  MATINV 
rftuhi :S  the  qftfr-ijnant  of  thf  matrix  (nen.  and  the  rank  of  the 
matrix  IRAN*,. 

DIMENSION  a(2500)#U(50)iC<50>. lR0W(5n># IC0L(50> 

dlt*i  , 

IRAkK*C 

i 

locate  pivotal  element 

DO  1500  K*1 *N 
A  M  A  X  *  0  • 

nmi«n-i 

DO  IPSO  J*KM1,NM1 
I  J«.J*MA*K 
DO  lClO  I  *K  i N 
ARC* A (  I J ) • A ( I J  ) 

IF(aRG-AMAX)  1050*1050,1040 

AMAXSARG 

IRC, ( K  )*  I 

ICCl  (K  )  *  J ♦  1 

I J«I J*1 

I F ( AMAX«1 1 F *20 )  1060,10*0.1100 

DE.Tsn,  • 

IRQ'.  (  K  )  s K 
IC0l(K  )*K 
GO  TO  3  '.<00 

lOVf.  MAXIMUM  FLEMFNT  TO  PIVOTAL  POSITION 
IRA1  K  *  I  R  Af:K  +  l 

IF< IRC*  (K)-K)  1110,1200,1110 
U  K  T  s  -  n  t T 

K  K  J  s  I  H  C  1  (  K  )  yt 

K  J  =  K 

CO  11*30.  J*  1  ,  N 
TK‘‘,aA(KKJ)  ^0' 

A  (  KK J )  *  A ( Kj ) 

A(KJ>«Trv,P 

KKj*K*,j*NA 
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kjs* 

JF< !COL<K )-k)  1?10#1300#121P 

DtT*-r:t.T 

!KK=( IC"L<K)-1)#NA 
JKs(K-i  )*‘JA 
DO  12^0  1*1.  N 
JKKrjKKfl 
I K  *  I K  ♦  1 
TF.MP*  A  (  IKK) 

A< I KK ) « A  <  IK) 

A( IK )*TfNP 

tnucr  pivotal  row  and  column 


KK*<K-1 >«Na*K 
TEMP* A ( KK ) 

DETs|)ET*TFfiP 

DO  1 APO  J*1,N 

JK*(K-1  >«MA*J 

KJ*( J-l )*MA+K 

IF(J-K)  13b0. 1310. 1350 

B(J)«1./TEKP 

C(J)«1. 

:ove.  maximum  flemfnt  to  pivotal  position 


I  HANK* 1 WANK  +  1 

if < i Row ( k > "K )  mo.i2no.iun 

det«-det 

KKJsIRCMK) 

KJ*K 

DO  tl^C.  J*  1  * N 
TLM'P*  A(  KK  J  ) 

A(KKJ)*A<Kj) 

a(kj)«tpmp 

KKJ5KK  j-fK'A 


<  jsk*  j+f.  a 

jf( icolIk )-k j  i?in.i3no»i?io 


ijLT=-nt.T 

TKKst ICML ( K )-l  )*NA 
JK*(l<-l  )«*JA 
DO  l2!.>3  1*1  .M 
IKK*  I  h  K n 
1  K  *  I  K  ♦  1 
TFM:f'*A(  IKK  ) 

A  (  I KK ) *  A (  I K  ) 

)  A ( I K  )  *TT  M’ 


,oi  ^*00UC'BU 


ILDUCr  PIVOTAL  ROW  AND  COLUMN 
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KK*(K*l)«fU«K 

TEPP#AC*K) 

0ET«0ET«TFHP 
00  1«PC  J»1*N 
JK*CK-1 J»*A4J 
KJ«( J-l )  •*'!♦* 

IMJ-K)  I3i0.l3l0.l35n 

BC J)»1./TFKP 

C< J)«l. 

oo  rc  1409 

H(  J)«-A(KJ)/TEHP 
C(J)*A(JK) 

A ( J< ) *0 • 

A<Kj)*P. 

00  l«S0  J*1#N 
!J«CJ-1>4^'A 
00  1«!>0  1*1.N 
IJ*1 J*1 

ac  ij)«ACU)4n(j)«c(i) 

CCNTlM.f. 

FaPRaFCE  fMT»<|X  IN  ORIGINAL  >0W 

00  1^00  kcvcle«i.n 
k«v^i-actclf 

IFC fPOto(K)*K)  I5l0.lb00.l9l0 

!«KB(!KOh<K)«l)*NA 

|K*CH-1)»NA 

00  1950  I»t.N 

1KK«|KK41  • 

IK«|«C*1 
TFvp«A<  |*C<) 

A( IKK  )• A( Ik ) 

AC  IkMTF.FP 

IF(iCOlCk)-k)  mo.i7oo»i«io 

KKJ«1CCI.CKJ 

KJ«< 

tO  ld*C  J*t»N 
TEVPIACmCJ) 

A(<KJ)«MKj) 

A<*j)«TfcPP 
K* J**KW»NA 
K.J*KJ*\A 
CCMT  JMjF 
RFTuQfi 

V'-Q 


m 


SUMCUTINE  rut|K(KSTC*«tT*9nven*tO^T.MOOC*MOM»^f|*TlKTA«Mi|9C*K> 

Tm,5«5Vl<lIOUIi^f^fc?TATrS  ,,fVeT,,•  *  CUMFNT  COLir*  vrc^om  StauaS 
•  JtTM*  twf  COLUMN  VTCTO*  C*  TMftOUfM  TiMfC  C^SfCUTlVl 

£»»? .I4L*  ! t TM*Tf * *!*  *£*  ,K  Tn€  ^osm  sense  aio  r*5r* 

EUTIS*  i  c**  <^rrT>,»  snf  mispir  or  tmc  rtasr  CLentw  or  tmt  rntsi 
S?rS2cV!5J^I,,L5/#ITATr®  c  IS  CirSTCI.  Tm§  ROUTfO 

vkCTcns  an  armann  as  4  state*  trains  otTum  a,  ckstr)  is  ocn* 

iiS.iIiAt0Crt,,tV  Tft  C,,*TC*#  t*ciar  (Ksrat  atiarrs  to  a.  thi  copt 
option  mntx  rent**  n#  routine  cartons. 


toar  oar ton 

t  Wars  tmoousm  cause  aasut  ott.mcTa.PNi 

*  aorart  rt«ausM  cause  aasut  -am.-rMfra.-asi. 

5  Wars  macusa  s*acc  aasut  aoi.ratTa.ONt. 

a  aorati  rwaniSM  onset  aasut  "*Mt.-rMcra»-asi. 

Ptmasifa  ct"roe>«acii*oa»0ft<S«jt 


cowatiTf  start  a  p  cornet  or  far  ruua  aasut.  csss  arms  oar tons. 
irctc*'f.f'».«.<*.co»r.rt.»>s*  to  to 

atvvfhl 

ecv*l.o-«.Mat|M| 

tfatVHfTa 

CTMi.r*o*t«yi(TaMt 
•r  !•**»♦  t 

Cfi>t*r-o*t«#ii|Mt 
SO  TO  1% 

tCTaSmiOttt  • 

ceTtcastostt 

SfiMSmtTMfVSt 

CTmcestTisTai 

•r|«SlMPN|9 

CMKCSta«itl 

COVfttCf 


attiavca  Tar  ruui  aoraftoaac  naTatv. 

|t|.t  )acT«4afCT 
|(|itiirtN.i(v 
!UiSM*ST. 

i(l*t>arrt*«TMHCTtrt«sca 
t  tt.l  ••tr  taeCT«aVwassT«aot 
tl|J)lVt.(TN 

!!M!l|f|#,r^*#W4Ke» 
ItJUIaUMSTiMfCTHOtaCCT 
l<Jp  ).cr  t  •cm 

tfT 


ClTfttvj.f  TM£  O^OC^-ASO-HNSC  0**IOK. 

!Mt  CP1.ES. t.O^.LtN»T.ca.3)CO  TO  ** 

g CJ.t) 

w«l<*t3> 

|C*.3)«l  ().?) 

(()•!)••* 

•  CO'.TlKvt 

ii»tE*  r*tei«  rc^m.  *o*  *otitt  ▼•€  ncrom, 

00  ISO  -•t.VfCT* 

00  *6  !•!•) 

ti 

(>I*CCSIMI 

v  run*  *0iii|flMi  uAtoi»# 

lU •  1 1 i^r  | •%r**»CCr •€* I *f€r 

lO.U*1*!*^^***^^ 

» i  !•!••'* !*r*- 

jt?,.  n  m  ortio*'. 

|i  ii  c*  t  «t  ••  1  •  n$*  so  so 

ni.ru  u.ii 

fiMMt 

« » 1.3U*  li.t  I 

((i.Dtt  o#?i 

i»  *#?••- 
•  t*  .*!  wl 

t>* 


fKt«  r*T«|i  fO^un.  W  «OT|T|  T*  4MQNIUTC 
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r?  ^iti) 

*1 
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